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S€44 
5645 i. ABSTRACT 
5646 
5647 THE FUNCTION OF THE 0Z11 DIAGNOSTICS IS TO VERIFY THE OPTION OPERATES 
5648 ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS ALSO VERIFY THAT THE 0Z11 
foe OPERATES IN ITS ENVIRONMENT SUCH AS THE SYSTEM IN WHICH IT IS INSTALLED. 
5651 PARAMETERS MAY BE SUPPLIED TO THE PROGRAM BY EITHER ‘AUTO SIZING’ OR 
5652 INPUT FROM THE USER ON THE CONSOLE BY HAVING SWOO=1 AT START TIME. AUTO 
5653 SIZING WILL BE DONE ONLY THE FIRST TIME THE PROGRAM IS STARTED AND 
5654 SWO7=0 AND SWOO=0 AND SWO3=0. THE AUTOSIZER IS DESIGNED TO DETECT 
5655 DZ11 DEVICE ADDRESSES AND VECTORS AND TO DETERMINE WHETHER THE DZ11 THAT 
5656 IS DETECTED IS AN EIA OR 20MA BOARD. ALL REMAINING PARAMETERS DEFAULT 
5657 TO CERTAIN VALUES (SEE SEC.8.5). CONSOLE INPUT MAY BE CONTROLLED AT ANY 
5658 START TIME THROUGH THE USE OF SWOO, SWO3, SWO4, AND SWO6 (SEE SEC. 4.1.1 
4 FOR A DETAILED DESCRIPTION OF THESE SWITCHES). 

60 
5661 CURRENTLY THERE IS ONE STANDALONE DIAGNOSTIC (CZDZA), ONE SYSTEM 
5662 FOR DEC X/11 (OZAA), AND AN ONLINE OVERLAY FOR DZITA (ITEP) - 0Z0Z8. 
os CITEP) - OZDZB. 

64 
S665 CZDZA WILL TEST ALL PARTS OF THE DZi1 SUCH AS CABLES, DIST PNL., 
5666 INTERFACE MODULE ITSELF. 
5667 
5668 2. REQUIREMENTS 
5669 
5670 2.1 EQUIPMENT 
S671 
5672 ANY PDOP11 FAMILY CPU (WITH MINIMUM 8K MEMORY) 
5673 ASR 33 (OR EQUILIVALENT FOR CONSOLE) 
5674 0Z11 INTERFACE MODULE (M7819(EIA), M7814(20MA)) 
5675 H3271 STAGGERED TURNAROUND CONNECTOR FOR EIA MODULE. 
5676 H3190 STAGGERED TURNAROUND CONNECTOR FOR 20MA MODULE. 
5677 H325 CABLE TURNAROUND AND DIST PNL TESTING FOR EIA MODULE. 
5678 H315 THIS MAY BE SUBSITUTED FOR H325. 
5679 
5680 NOTE: A STmGGERED TURNAROUND CONNECTOR IS NEEDED IN ORDER TO TEST THE 
5681 PARITY AND BREAK LOGIC. 
5682 
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3.1.1 


3.1.2 
3.1.3 





STORAGE 


PROGRAM WILL USE ALL 8. OF MEMORY EXCEPT WHERE ABL AND BOOTSTRAP LOADER 
RESIDE. LOCATION 1500 THRU 2000 ARE ESPECIALLY TO BE NOTED AND TO BE 
UNTOUCHED BY OPERATOR AFTER PARAMETERS HAVE BEEN INPUT FROM CONSOLE 
(SWOO=1); OR AFTEP THE ‘AUTO SIZING’ HAS BEEN DONE. THESE LOCATIONS 
MAY BE CHANGED IF T'E USER UNDERSTANDS THEIR MEANING AND DIFFERENT 
PARAMETERS ARE REQLIRED. 


LOADING PROCEEDURE 

METHOD 

ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE ABSOLUTE 
LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH AS DISK 
«MAGTAPE ,DECTAPE, OR CASSETTE; FOLLOW INSTRUCTIONS FOR THE MONITOR 
WHICH HAS BEEN PROVIDED ON THAT SPECIFIC MEDIA. 

ABSOLUTE LOADER STARTING ADDRESS «#500 


MEMORY *# SIZE 






4K 17 
8K 37 
12K 57 
16K 77 
20K 117 
24K 137 
28K 157 


PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER. 
CALSO PLACE ‘HALT’ SW UP) 


DEPRESS ‘LOAD ADDRESS‘ KEY ON CONSOLE AND RELEASE. 


DEPRESS ‘START KEY‘ ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW BE 
LOADING INTO CPU) 
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4. STARTING PROCEEDURE 

A. SET SWITCH REGISTER TO 000200 

B. DEPRESS ‘LOAD ADDRESS’ KEY AND RELEASE 

C. SET SWR TO ZERO FOR ‘AUTO SIZING’ OR SET SWOO=1 FOR USER PARAMETER 
INPUT FROM CONSOLE TERMINAL. ON FIRST START IF SWO7=1 AND SW00=0 
THE PROGRAM WILL DEFAULT TO CONSOLE PARAMETER INPUT (SWO0=1). 

D. DEPRESS ‘START KEY’ AND RELEASE, THE PROGRAM WILL TYPE MAINDEC NAME 
AND PROGRAM NAME CIF THIS WAS THE FIRST START UP OF THE PROGRAM OR 
PARAMETERS WERE CHANGED BY SWOO=1) AND ALSO THE FOLLOWING: 

‘MAP OF 0Z11 STATUS’ 
1500 160100 
1502 000300 
1504 000005 
1506 000377 
1510 017070 
1512 000000 

THE ABOVE IS ONLY AN EXAMPLE! THIS WOULD INDICATE THE STATUS TABLE 

STARTING AT ADD. 1500 IN THE PROGRAM. THE STATUS TABLE MUST BE 

VERIFIED BY THE USER IF AUTO SIZING IS DONE. FOR INFORMATION OF STATUS 

TABLE SEE SECTION 8.4 FOR HELP. 

THE PROGRAM WILL TYPE “RUNNING” AND PROCEED TO RUN THE DIAGNOSTIC. 

4.1 CONTROL SWITCH SETTINGS 
NOTE: IF THERE IS NO REAL SWR (177570); SWR MAY BE MODIFIED AT 
LOC:176 OR BY HITTING CONTROL “G” <tG> ON CONSOLE TERMINAL. 

SW 15 SET: HALT ON ERROR 

SW 14 SET: LOOP ON CURRENT TEST 

SW 13 SET: INHIBIT ERROR PRINT OUT 

SW 12 SET: INHIBIT ##ALL** TYPE OUT/BELL ON ERROR. 

SW 11 SET: INHIBIT ITERATIONS. (QUICK PASS) 

SW 10 SET: ESCAPE TO NEXT TEST 

SW 09 SET: LOOP WITH CURRENT DATA 

SW 08 SET: CATCH ERROR AND LOOP ON IT 

SWO7 SET: NO AUTO SIZE. IF 1ST START OF PROGRAM AFTER LOADING THE 

OPERATOR MUST INPUT ADDRESS AND VECTOR FROM CONSOLE. 

SW 06 SET: RESELECT DZ11'S DESIRED ACTIVE 

SW OS SET: RUN BAUD RATE TEST 

SW 04 SET: SELECT DELAY PARAMETER (SEE SEC. 4.1.1) 

SW O03 SET: EXTRA PARAMETER INPUT (SEE SEC. 4.1.1) 

SW O02 SET: LOCK ON SELECTED TEST 

#4SW 01 SET: RESTART PROGRAM AT SELECTED TEST 
#SW 00 SET: GET USERS PARAMETERS FROM CONSOLE 
* FOR ECHO OR CABLE TESTS (PROGRAM STARTED AT LOC. 210) ‘THIS 
SWITCH SET TO 1 ALLOWS THE USER TO TYPE IN THE VECTOR AND THE 
CSR FOR THE 0Z11 UNDER TEST. 
ae FOR ECHO OR CABLE TEST THIS SWITCH SET TO 1 ALLOWS THE SELECTION 
A Ng lh ECHO OR CABLE TEST, BAUD RATE, AND THE LINE NUMBER 
EsT. 
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SD ee 


SWITCH REGISTER CONTROL OF PARAMETER INPUT FROM CONSOLE 


SW 00 GET USERS PARAMETERS FROM CONSOLE. SETTING THIS SWITCH AT START 
UP TIME ALLOWS THE USER TO INPUT AT THE CONSOLE TERMINAL THE 
FOLLOWING PARAMETERS: BASE DEVICE ADDRESS, BASE VECTOR ADORESS, 
BUS REQUEST LEVEL, DECLARE EIA OR 20MA MODULE, MODE OF OPERATION 
CEXTERNAL, INTERNAL, OR STAGGERED), AND THE NUMBER OF DZ11‘S THAT 
ARE RUNNING. USING THIS SWITCH ALONE DEFAULTS THE FOLLOWING 
PARAMETERS: ALL 8 LINES ARE SET TO BE TESTED ON EACH OZ11, THE 
DEFAULT BAUD RATE IS SET AT 9600 BAUD, AND THE CHARACTER LENGTH 
FOR THE MAJORITY OF TESTING IS SET AT EIGHT BITS PER CHARACTER 
WITH TWO STOP BITS. 

SW O03 EXTRA PARAMETER INPUT. SETTING THIS SWITCH AT START UP TIME 
PROVIDES THE USER WITH THE ABILITY TO SET THE LINES ACTIVE FOR 
TESTING AND TO SET THE DEFAULT BAUD RATE USED FOR THE MAJORITY 
OF THE DIAGNOSTIC TESTS. THE DELAY PARAMETER IS AUTOMATICALLY 
ADJUSTED TO THE BAUD RATE GIVEN BY THE USER. 

SW 04 SELECT DELAY PARAMETER. THE DELAY PARAMETER THIS SWITCH CONTROLS 
DETERMINES THE LENGTH OF TIME THE PROGRAM STALLS WAITING FOR A 
CHARACTER TO BE COMPLETELY TRANSMITTED OR RECEIVED. THIS DELAY 
COUNT IS AUTOMATICALLY SET TO PROVIDE ENOUGH DELAY TIME FOR THE 
DEFAULT BAUD RATE SPECIFIED WHEN RUNNING THE PROGRAM ON AN 11/45 
WITH BIPOLAR MEMORY. WHEN RUNNING THIS PROGRAM ON A FASTER 
PROCESSOR THE DELAY PARAMETER SHOULD BE ADJUSTED PROPORTIONALLY 
HIGHER THAN THE FOLLOWING DEFAULTED VALUES: 

2450 ;TIME FOR 50 BAUD 
1560 sTIME FOR 75 BAUD 
1120 sTIME FOR 110 BAUD 
0750 ;TIME FOR 134 BAUD 
0660 ;TIME FOR 150 BAUD 
0330 sTIME FOR 300 BAUD 
0150 sTIME FOR 600 BAUD 
0060 ;TIME FOR 1200 BAUD 
0040 sTIME FOR 1800 BAUD 
0030 sTIME FOR 2000 BAUD 
0020 sTIME FOR 2400 BAUD 
0010 ;TIME FOR 3600 BAUD 
0001 sTIME FOR 4800 BAUD 
0001 ;TIME FOR 7200 BAUD 
0001 ;TIME FOR 9600 BAUD 
0001 sTIME FOR 19.2 KBAUD 
*e& NOTE sa% 


19.2K BAUD IS AN UNSUPPORTED BAUD RATE. IT SHOULD NOT NORMALLY BE USED. 
9600 BAUD IS THE SPECIFIED MAXIMUM. 
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4.1.2 


METHOD : 


SWITCH REGISTER RESTRICTIONS 


SW 06 


nm 


SW 01 


SW 09 


SW 04 


RESELECT 0211'S DESIRED ACTIVE. PLEASE NOTE THAT A MESSAGE IS 
TYPED OUT FOR SETTING THE SWITCH REGISTER EQUAL TO 0211'S 
ACTIVE. THIS MEANS IF THE SYSTEM HAS FOUR 0211S; BITS 
00,01,02,03 WILL BE SET IN LOC ‘DZACTV’ FROM THE SWITCH 
REGISTER. USING THIS SWITCH(SWO6 ) ALTERS THAT 
LOCATION; THEREFORE IF FOUR DZ1iS ARE IN THE SYSTEM #400 NOTs#«s 
SET SWITCHES GREATER THAN SW O03 IN THE UP POSITION. THIS WOULD 
BE A FATAL ERROR. DO NOT SELECT MORE ACTIVE DZ11S THAN HAS BEEN 
GIVEN INFORMATION ABOUT IN PARAMETER INPUT (SWOO=1) 

LOAD ADDRESS 200 

START WITH SW 06-1 

PROGRAM WILL TYPE MESSAGE 

SET THE BINARY NUMBER OF DZ11S DESIRED ACTIVE EXAMPLE: 1-1 
fethen’ DZ11; 7*3 0211; 17=4 0211 37=5 0Z11 ETC/AA PRESS 
NUMBER CIF VALID) WILL BE IN DATA LIGHTS (EXCLUDING 11/05) 

SET WITH ANY OTHER SWITCH SETTINGS DESIRED. PRESS CONTINUE. 


RESTART PROGRAM AT SELECTED TEST IT IS STRONGLY SUGGESTED 
THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE TRYING TO SELECT A 
TEST THAT IS NOT IN THE ORDER OF SEQUENCE THE REASON BEING IS 
THAT THE PROGRAM HAS TO CLEAR AREAS AND SET UP PARAMETERS. 
NOTE: IF RUNNING MULTIPLE DZ11‘S; THE DZi1 YOU DESIRE TO BE 
UNDER TEST MUST BE SELECTED BY THE USE OF SWO6 BEFORE LOCKING ON 
THE TEST. IN OTHER WORDS; EACH TIME THE PROGRAM IS STARTED; 
THE FIRST 0Z11 WILL BE SELECTED TO BE UNDER TEST UNLESS SWO6 IS 
USED TO SELECT ONLY ONE. 


LOOP ON CURRENT DATA: THIS SWITCH WILL ONLY WORK IF CALL 
‘SCOP1' IS IN THAT TEST. THE REASON BEING THAT MOST TESTS DEAL 
WITH BLOCKS OF DIFFERENT DATA TO BE SENT OR, RECEIVED ALL AT ONCE 
THUS IN BLOCK DATA, ONE PATTERN CAN'T BE SINGLED OUT. 

THIS SWITCH IS DESIGNED TO PROVIDE AN AID FOR A TRAINED TROUBLE- 
SHOOTER TO SAMPLE VARIOUS SIGNALS ON THE MODULE AND IS NOT MEANT 
TO BE USED AS A GENERAL USER CONTROL SWITCH. 


SELECT DELAY PARAMETER: THIS SWITCH SHOULD BE USED WITH CARE 
AS TOO SHORT A DELAY WILL CAUSE VALID TESTS TO FAIL ON CERTAIN 
PROCESSORS. IT IS RECOMMENDED THAT THIS SWITCH ONLY BE USED 
IN CONJUNCTION WITH SCOPE LOOPS, E.G, SW 14,9,4,1 SET; SW 9,4, 
2,1 SET. THE SHORTEST PARAMETER IS 1; THE LONGEST ACCEPTED IS 
177776. (SEE SEC. 4.1.1) 
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5879 
fae 4.1.3 SWITCH REGISTER PRIORITIES 

81 
oe ERROR SWITCHES 

8 
5884 1. SW 12 DELETE PRINT OUT/BELL ON ERROR. 
5885 a. SW 13 DELETE ERROR PRINTOUT. 
5886 3. SW 15 HALT ON THE ERROR. 
5887 4. SW 08 GOTO BEGINNING OF THE TESTCON ERROR). 
444 S. SW 10 GOTO NEXT TESTCON ERROR). 
ote SCOPE SWITCHES 

1 
5892 1. SW 09 CIF ENABLED BY ‘SCOP1'). IF AN ‘#’ IS PRINTED IN FRONT OF 
5893 THE TEST NO. ON AN ERROR REPORT (EX. *#TEST NO. 10 ) SWO9 IS 
5894 INCORPORATED IN THAT TEST AND THEREFORE SWO9 IS *#USUALLY* THE 
5895 BEST SWITCH FOR THE SCOPE LOOP (SW14=0, SW10=0, SWO9=1, SW08=0) 
5896 IF THE PROGRAM USER IS TECHNICALLY TRAINED TO ELECTRONICALLY 
5897 ISOLATE SIGNAL PROBLEMS ON THE DZ11 MODULE. 
5898 IF SWO9 IS NOT ENABELED; AND THERE IS A *#HARD* ERROR 
5899 (CONSTANT); SWO8 IS BEST. 
5900 2. FOR INTERMITTENT ERRORS EITHER START THE PROGRAM WITH SWO1 AND 
5901 SWO2 SET WHICH WILL ALLOW THE USER TO LOCK ON A SELECTED TEST, 
5902 OR ELSE SET SW1i4 AS AN ERROR IS BEING TYPED OUT ON THE TERMINAL. 
5903 SW14 WILL CONTINUE TO LOOP ON THAT TEST REGARDLESS OF WHETHER AN 
5904 ERROR OCCURS. 
bees 3. SW 14 LOOP ON CURRENT TEST. 
906 
os 4.2 STARTING ADDRESS 
908 
5909 SA 200 - See 200 IS FOR NORMAL EXECUTION OF THE DIAGNOSTIC. THIS 
5910 WILL DO THE MAJOR TESTING NECESSARY FOR VERIFICATION OF 
S911 HARDWARE . 
5912 
5913 SA 210 - CABLE/ECHO - TERMINAL TESTS. STARTING AT ADDRESS 210 WILL GIVE 
5914 THE USER THE OPTION TO VERIFY THE EIA CABLES AT THE DIST PNL OR 
5915 . VERIFY A TRUE LINK TO ANY DEC SUPPORTED TERMINAL SUPPORTED BY 
poe THE 0Z11. 
591 
5918 NOTE: IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT IS _ UNDER 
5919 ACT11 OR XXDP CONTROL AND WILL ACT ACCORDINGLY. AFTER *ALL« 
5920 AVAILABLE DZ11‘S ARE TESTED THE PROGRAM WILL RETURN TO ‘XXDP‘ OR 
5921 ‘ACT-11'. 
$922 
pooe S$. OPERATING PROCEDURE 

24 
5925 WHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN SECTION FOUR 
por WILL BE PRINTED AND PROGRAM WILL BEGIN RUNNING THE DIAGNOSTIC. 
927 
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5.1 


NORMAL START OF DIAGNOSTIC 


ON THE FIRST START OF THE DIAGNOSTIC AT ADDRESS 200; IF AUTO 
SIZING IS NOT USED OR WHENEVER SWOO=1: THE FOLLOWING QUESTIONS 
ARE ASKED AND MUST BE ANSWERED. 


“1ST CSR ADDRESS (160000:163700): “ 


YOU MUST TYPE IN THE FIRST DZ11 CSR IN THE SYSTEM YOU WISH 
TESTING TO BEGIN AT. RANGE: 160000:163700 


"1ST VECTOR ADORESS (300:770): ” 


YOU MUST TYPE IN THE VECTOR OF THE FIRST ODZi1 IN THE SYSTEM 
UNDER TEST. RANGE 300:770 


“BR LEVEL (4:6): ” 


TYPE IN THE PRIORITY LEVEL OF THE DZ1i THAT THE ABOVE 
INFORMATION HAS BEEN GIVEN ABOUT. RANGE 4 OR 5 OR 6. 


“TYPE “A” FOR EIA MODULE OR “B” FOR 20MA (A:B): ” 


TYPE “A” IF RUNNING A 0Z11-A,B,E€ (EIA). 
TYPE “B” IF RUNNING A 0Z11-C,0,F (20MA). 
TYPING A <CR> DEFAULTS TO EIA MODULES. 


"MAINTENANCE MODE 

CEXTERNAL <H325>-EIA ONLY (E)) 
{INTERNAL <DZCSRO3=1> (I)) 
(STAGGERED <H3271>-EIA ONLY (S)) 
(STAGGERED <H3190>-20MA ONLY (S)) 


TYPE “E” OR “I” OR “S” DEPENDING ON WHICH MODE YOU WISH TO RUN 
IN. IF RUNNING “EXTERNAL”; ALL SELECTED LINES MUST BE 
TERMINATED BY AN H325 TEST CONNECTOR. 





(2 ees re 
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"@ OF DZ11'S <IN OCTAL> (1:20): ” 


TYPE TOTAL NUMBER OF 0Z11'S TO BE TESTED IN THE SYSTEM. RANGE 
IS 1 THRU 20 IN OCTAL. 


eeeeeeeee IF SWO3=1 THEN seb eee000 
IF SWO3=1 THE FOLLOWING WILL BE PRINTED. 


"LINES ACTIVE BY BIT <IN OCTAL> (001:377):” 


EACH BIT REPRESENTS A LINE AND ANY COMBINATION OF LINES MAY BE 
SELECTED (HOWEVER IN STAGGERED MODE TWO ADJACENT LINES MUST BE 
SELECTED (0-1, 2-3, 4-5, 6-7)).. 


"DEFAULT BAUD RATE <IN OCTAL> (00:16): ” 


THIS GIVES THE USER A CHANCE TO CHANGE THE DEFAULT BAUD RATE 
USED IN APP. 90 PERCENT OF THE TEST. BAUD RATE CHOICES ARE: 
"00"C 50 BAUD),”"01"C 75 BAUD), ”“02"( 110 BAUD), "03"( 134 BAUD), 
"04"( 150 BAUD), "05" 300 BAUD), ”06"C€ 600 BAUD), "07"(1200 BAUD), 
"10"(1800 BAUD), “11"(2000 BAUD), “12”"(2400 BAUD), "13"(3600 BAUD), 
"14"(4800 BAUD), "15"(7200 BAUD), "16"(9600 BAUD), "17"(19.2 KBAUD) 
LOW DEFAULT BAUD RATES ARE NOT SUGGESTED SINCE THEY LENGTHEN THE 
TIME TO COMPLETE A PROGRAM PASS DRAMATICALLY. 
ase NOTE sa% 
SPEED SELECT CODE 17 CAN BE USED TO SELECT 19.2K BAUD, BUT THIS 
SPEED IS NOT SPECIFIED BY DEC, AND SHOULD NOT NORMALLY BE USED. 
RERKAKEEREAAERAAEAEARARAEE REE EEEEE 


IT IS IMPORTANT TO NOTE THAT ALL 0Z11'S IN THE SYSTEM MUST BE 
CONTIGIOUS FOR BOTH ADDRESS AND VECTORS. ALSO ALL THE EXTRA 
PARAMETERS OTHER THAN CSR AND VECTORS ARE GIVEN TO THE EXISTING 
DZ11'S IN THE SYSTEM. IF NOT ALL 0Z11‘S ARE SAME PRIORITY OR IF 
THE MODE OF OPERATION IS DIFFERENT FOR EACH DZi1; THIS MUST BE 
“PATCHED” INTO THE CORRECT STATUS MAP ENTRY WHICH IS PRINTED AT 
START TIME. AN ALTERNATIVE IS TO PUT SWOO=1 AT START TIME; 
ANSWER QUESTIONS ABOUT D0Z11 UNDER TEST AND INDICATE ONLY 1 0211 
IN THE SYSTEM. IF THE STATUS MAP IS TO BE “PATCHED” IT MUST BE 
DONE AFTER THE QUESTIONS ARE ANSWERED OR AFTER THE AUTO SIZE. 
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5.2 


HOW TO RUN THE “CABLE/ECHO” TESTS. 
NORMAL STARTING FOR THE FIRST TIME WOULD BE: LOAD ADDRESS 210; START 
WITH THE SWR EQUAL TO 003. 
NOTE: SWOO=1 ASKS FOR “VECTOR” AND "CSR" 
SWOl=1_ ASKS FOR “WHICH TEST ECHO OR CABLE”, “BAUD RATE”, “LINE” 
UNDER TEST. PROGRAM WILL PRINT OUT: 
“VECTOR ADDRESS-” 
YOU TYPE VECTOR WITH A <CR>. 
“CONTROL REGISTER ADDRESS-” 
YOU TYPE IN OZCSR UNDER TEST. 
“WHICH TEST ? ECHO OR CABLE (E OR C)” 
LETS DO THE CABLE TEST FIRST. s#«*THIS TEST IS ONLY TO BE DONE ON 
pes | EIA VERSION OF THE DZ11 NOT THE 20MA VERSION”. TYPE "C” 
<CR> 
“BAUD RATE- ” 


TYPE EITHER 50, 110, 135, 150, 300, 600, 1200 1800, 2000, 2400, 
3600, 4800, 7200, 9600 FOLLOWED BY <CR> 


“LINE: ° 


YOU TYPE THE LINE WHICH HAS THE H325 TEST CONNECTOR. (TYPE 
EITHER 0, 1, 2, 3, 4, 5, 6, 7) PROGRAM WILL THEN PRINT: 


“CABLE TEST” 
AND IF EVERYTHING IS WORKING; THE FOLLOWING WILL BE PRINTED: 


“PASS DONE.” 
— DONE.” 
"TO CHANGE LINES; HIT ANY PRINTING KEY ON YOUR CONSOLE TERMINAL 
WHILE THE PROGRAM IS RUNNING AND THE FOLLOWING WILL BE PRINTED: 


“LINE: * 


NOW CHANGE THE H325 TEST CONNECTOR TO ANOTHER LINE AND TYPE THE 
NEW LINE. PROGRAM WILL THEN PRINT: 


"CABLE TEST” 
“PASS DONE.” 
“PASS DONE.” 
CONTINUE THIS OPERATION UNTIL ALL LINES ARE TESTED. 
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$.3 ECHO TEST 

IF PROGRAM HAS ALREADY BEEN STARTED AT 210 AND THE VECTOR AND ADDRESS 

HAVE BEEN TYPED IN; JUST “OAD ADDRESS 210 AND START WITH SWR EQUAL TO 

002. PROGRAM WILL PRINT: 

“WHICH TEST ? ECHO OR CABLE CE OR C)” 
NOW TYPE AN “E” TO DO THE ECHO TEST. PROGRAM WILL PRINT: 

“BAUD RATE-” 
TYPE BAUD RATE AT WHICH THE TERMINAL IS SET THAT IS CONNECTED TO 
THE DZ11 DIST PNL. BAUD RATE CHOICES ARE: 50, 75, 110, 135, 150 
300, 600 , 1200, 1800, 2000, 2400, 3600, 4800, 7200, 9600. THE 
PROGRAM WILL THEN PRINT: 

Lr: * 


TYPE THE LINE THE TERMINAL IS CONNECTED TO AT THE DIST PNL_ THEN 
THE PROGRAM WILL PRINT: 


“TERMINAL ECHO TEST” 
#a¢ AT THIS POINT THE MESSAGE: 
“THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789” 


SHOULD BE PRINTED ON THE TERMINAL CONNECTED TO THE OZi1. IF 
THIS MESSAGE IS DESIRED TO BE CONTINIOUSLY OUTPUT; SET THE SWR 
TO 377 (SWR=377) WHILE IT IS BEING OUTPUT OR WHEN THE LINE NO. 
IS REQUESTED ABOVE. WHEN THIS MESSAGE IS DONE AND THE SWR IS NOT 
EQUAL TO 377; THE CONSOLE WILL PRINT: 


“TYPE A CHAR. ON 0Z11 TERMINAL” 


ANY PRINTABLE CHAR HIT ON DZ11 TERMINAL SHOULD BE ECHOED BACK ON 
THE TERMINAL. ##IF YOU HIT CNTRL C <tC> ON THE DZ11 TERMINAL 
THE PROGRAM WILL PRINT: 


“PASS DONE.” 


ON THE CONSOLE TERMINAL AND THE “QUICK BROWN FOX” WILL BE 
PRINTED ON OZ11 TERMINAL AGAIN AND THE ECHO TEST WILL BE 
RUNNING. TO CHANGE LINES: TYPE ANY PRINTABLE CHARACTER ON THE 
CONSOLE TERMINAL (NOT THE DZ11 TERMINAL). THE PROGRAM WILL AGAIN 
TYPE “LINE: “ AND WAIT FOR A RESPONSE. 





ec erat 
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6.2 





PROGRAM AND/OR OPERATOR ACTION 


THE VARIETY OF PROGRAM CONTROL SWITCHES PROVIDED IN THIS OIAGNOSTIC 
PACKAGE IS DESIGNED TO PROVIDE THE USER WITH A WIDE RANGE OF TROUBLE- 
SHOOTING TECHNIQUES. BEFORE THE USER ATTEMPTS TO RUN THIS DIAGNOSTIC HE 
SHOULD BECOME FAMILIAR WITH THE USE OF THESE CONTROL SWITCHES AND THEIR 
RESTRICTIONS. (SEE SEC. 4.1, 4.1.1, 4.1.2, 4.1.3) 


WHEN THE PROGRAM DETECTS AN ERROR THE TEST NUMBER AND PC WILL BE TYPED 
OUT AND POSSIBLY AN ERROR MESSAGE (DEPENDING ON THE PARTICULAR ERROR). 
IF IT IS NECESSARY TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT 
THEN LOOK IN THE PROGRAM LISTING FOR THAT TEST NUMBER AND THEN NOTE THE 
PC OF THE ERROR REPORT. THE REASON FOR THE ERROR REPORT WILL BECOME 
CLEARER WHEN READING THE COMMENTS IN THE PROGRAM LISTING. 


ERRORS 


AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND PC TYPED 
OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW 12*0). IN MOST 
CASES ADDITIONAL INFORMATION WILL BE SUPPLIED TO THE THE ERROR MESSAGE 
WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE ERROR. 


ERROR RECOVERY 


IF FOR SOME REASON THE DZ11 SHOULD ‘HANG THE BUS’ (GAIN CONTROL OF BUS 
SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) AN INIT OR POWER DOWN/UP 
IS NECESSARY FOR OPERATOR TO REGAIN CONTROL OF CPU. IF THIS SHOULD 
HAPPEN; LOOK IN LOCATION ‘$TSTNM’ (BYTE 1122) FOR THE NUMBER OF THE 
TEST THAT WAS RUNNING AT THE TIME OF THE CATASTROPHIC ERROR. IN THIS 
WAY THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE DZ1i1 WAS DOING AT THE 
TIME OF THE ERROR. 


RESTRICTIONS 

STARTING RESTRICTIONS 

SEE SECTION 4.1.2 

STATUS TABLE SHOULD BE VERIFIED REGARDLESS OF HOW PROGRAM WAS STARTED. 


ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH THE INFORMATION 
PRINTED ON THE TTY TO COMPLETLY ISOLATE PROBLEMS. 
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7.2 


8.2 









OPERATING RESTRICTIONS 
PARAMETER MUST BE INPUT FROM USER OR APT IF “AUTO SIZING” IS NOT USED. 


MISCELLANEOUS 
EXECUTION TIME - 


ALL 0Z11 DEVICE DIAGNOSTICS WILL GIVE AN ‘END PASS’ MESSAGE (PROVIDING 
NO ERRORS AND SWi2*0) WITHIN 2 MIN. THIS IS ASSUMING SWii*1 CINHIBIT 
ITERATIONS) IS SET TO GIVE THE FASTEST POSSIBLE EXECUTION. THE ACTUAL 
EXECUTION TIME DEPENDS GREATLY ON THE POP11 CPU CONFIGURATION. AN 11/40 
WITH CORE MEMORY WILL TAKE AROUND 100 SECONDS TO EXECUTE A PASS WITH NO 
ITERATIONS AND ABOUT 400 SECONDS TO EXECUTE A FULLY ITERATED PASS. ANY 
OTHER POPi1i CPU TYPE WILL EXECUTE A PASS IN TIME PROPORTIONAL TO THE 
EXECUTION SPEED OF THE CPU ‘S MEMORY IN RELATION TO THAT OF AN 11/40. 


PASS COMPLETE 


NOTE: #EVERY* TIME THE PROGRAM IS STARTED; THE TESTS WILL RUN AS IF 
SWi1 (DELETE ITERATIONS) WAS UP (#1). THIS IS TO ‘VERIFY NO *HARDs 
ERRORS’ AS SOON AS POSSIBLE. THEREFORE THE FIRST PASS -EACH TIME 
PROGRAM IS STARTED- WILL BE A ‘QUICK PASS‘ UNTIL ALL 0211'S IN SYSTEM 
ARE TESTED. WHEN THE DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS 
AN EXAMPLE OF THE PRINT OUT TO BE EXPECTED. 


END PASS CZDZA-I CSR: 160010 VEC: 300 PASSES: 000001 ERRORS: 


NOTE: THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY THE VALUES FOR 
THE DEVICE. THEY ARE ONLY FOR THIS EXAMPLE. 
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8.4 


KEY LOCATIONS 
$SLPADR (1126) 


NEXT (1360) 
$TSTNM (1122) 
RUN (1406) 


STATUS MAP 


(1500) -€ 2000) 


DZACTV (1404) 


$BASE (1310) 





SEQ 14 


CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN WHEN 
Eocewrase COUNT IS REACHED OR IF LOOP ON TEST IS 
CONTAINS THE ADDRESS OF THE NEXT TEST TO BE PEFORMED. 
CONTAINS THE NUMBER OF THE TEST NOW BEING PEFORMED. 

THE BIT IN ‘RUN’ ALWAYS POINTS ONE PAST THE O0Z11 
CURRENTLY BEING TESTED. EXAMPLE : (RUN) 
1304/'000000001000000 MEANS THAT DZ11 NO.05 IS THE 0211 
NOW RUNNING. 


THESE LOCATIONS CONTAIN THE INFORMATION NEEDED T0 TEST 
UP TO 16 (DECIMAL) 0Z11S SEQUENTIALY. THEY CONTAIN THE 
at te AND STATUS CONCERNING THE CONFIGURATION OF 
i. 
EACH BIT SET IN THIS LOCATION INDICATES THAT THE 
ASSOCIATED OZ1i1 WILL BE TESTED IN TURN. EXAMPLE: 
(DZACTV) 1300/0000000000011111 MEANS THAT 0Z11 NO. 
00,01,02,03,04 WILL BE TESTED. EXAMPLE: (DZACTV) 
ee MEANS THAT DZ11 NO. 00,04 WILL BE 
STED. 
— THE RECEIVER CSR OF THE CURRENT DZ11 UNDER 
E . 

















SEQ 15 
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rr ot 8.4A MORE ON THAT ‘STATUS TABLE’ (1500-2000) 

621 

6219 ‘MAP OF 0Z11 STATUS’ 

6220 1500 160100 

6221 1502 000300 

6222 1504 000005 

6223 1506 000377 

6224 1510 017070 

6225 1512 000000 

6226 

6227 

6228 THE ABOVE INFORMATION WILL BE REPEATED FOR EACH OF UP TO 16 DZ11‘S IN 
6229 THE SYSTEMCTHESE WILL FOLLOW UNDER THIS TABLE). EXPLANATION: 

6230 1500 160100 THIS IS THE SYSTEM CONTROL REGISTER FOR THE 1ST 0Z11 IN 
6231 THE SYSTEM. 

6232 1502 000300 THIS IS VECTOR ‘A’ FOR THE FIRST DZ11 IN THE SYSTEM. 
6233 1504 000005 THIS REPRESENTS THE BUS INTERRUPT PRIORITY LEVEL OF THE 
6234 DZii. BIT1S OF THIS LOCATION INDICATES EITHER EIA OR 
6235 20MA. IF BIT15=0 MODULE SHOULD BE AN M7819, IF BIT1S=1 
6236 MODULE SHOULD BE AN M7814. 

6237 1506 000377 THIS IS THE BINARY REPRESENTATION OF WHAT LINES ARE TO 
6238 BE TESTED. 

° 6239 1510 017070 THIS IS THE PARAMETER LOCATION USED IN MOST OF THE 
6240 TESTS. IT INDICATES PARAMETERS OF: RX ON, SPEED SELECT 
6241 16 (9600 BAUD) EIGHT BITS PER CHAR, AND TWO STOP BITS. 
6242 THE USER MAY ALTER THE STOP BITS AND THE SPEED, BUT THE 
6243 REMAINING PARAMETERS SHOULD BE LEFT ALONE. 

6244 THIS LOCATION IS USED TO LOAD THE DZ11 LINE PARAMETER 
6245 REGISTER FOR EACH LINE. THE MEANING OF THE BITS SET IN 
6246 THIS LOCATION IS THE SAME AS THE FUNCTION OF THE RELATED 
6247 BITS IN THE DEVICE LINE PARAMETER REGISTER. 

6248 1512 000000 THIS LOCATION WILL CONTAIN EITHER ALL ZEROS INDICATING 
6249 THAT INTERNAL LOOP WAS SELECTED AS MODE OF OPERATION OR 
6250 IT WILL CONTAIN 100000 INDICATING THAT “STAGGERED MODE” 
6251 WAS SELECTED OR IT WILL CONTAIN 000200 INDICATING THAT 
ri} “EXTERNAL” WAS THE MODE SELECTED. 

s<) 

6254 THE ABOVE IS REPEATED FOR EACH 0Z11 IN THE SYSTEM. THE TABLE IS 
6255 FILLED BY AUTO SIZING OR BY THE MANUAL PARAMETER INPUT PROGRAM 
6256 AS DESCRIBED PREVIOUSLY. ALSO IF DESIRED BY USER; THE 
6257 LOCATIONS MAY BE ALTERED BY HAND (CTOGGLED IN) TO SUIT THE 
625 SPECIFIC CONFIGURATION. 

6259 
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6261 

rte | 8.5 ee METHOD OF AUTO SIZING ss 

626 

or} 8.5.1 FINDING THE CONTROL STATUS REGISTER. 

626 

6266 THE PROGRAM WILL START AT ADDRESS 160000 AND START ‘REFERENCING’ THE 

6267 ADDRESS IN THE POINTER. IF A NON-EX MEMORY TRAP OCCURES, THE POINTER 

6268 CHOLDING 160000) IS UPDATED BY 10 AND THE ABOVE IS REPEATED UNTIL 

6269 ADDRESS 163700 IS REACHED. IF A ‘SLAVE SYNC RESPONSE’ WAS ISSUED BY THE 

6270 DZ11 (OR ANY OTHER DEVICE) (NO NXM TRAP), "MASTER SCAN ENABLE” IS 

6271 ATTEMPTED TO BE SET AND THE “TCR” BIT FOR LINE 7 IS SET. “TROY” IS THEN 

6272 TESTED TO BE SET AND BOTH “TCRO7” AND “MASTER SCAN ENABLE” ARE TESTED TO 

6273 BE STILL SET. IF ALL OF THIS WORKED; THEN A “DEVICE CLEAR” IS ISSUED 

6274 TESTING THAT THE BIT CAN BE READ BACK AND THAT AFTER SOME TIME IT SELF 

6275 CLEARS. IF ALL OF THE ABOVE WORKED; THIS DEVICE IS ASSUMED TO BE A 

6276 DZ11. IF ANY OF THE ABOVE FAILED; UPDATING OF THE POINTER IS DONE AND 

6277 THE SEQUENCE IS REPEATED. 

627 NOTE: IF THE PROGRAM DOES NOT FIND YOUR 0Z11; SOMETHING IS WRONG AND 

6279 AUTO SIZING SHOULD NOT BE DONE. 

6280 AFTER IDENTIFYING A DZ11 THE PROGRAM THEN ATTEMPTS TO SET ALL DTR’ BITS 

6281 IN DEVICE REGISTER 4. IF ANY OTR BITS DID SET THE MODULE IS ASSUMED TO 

6282 BE AN EIA MODULE (M7819) OTHERWISE THE STATUS MAP ENTRY IS SET FOR 20MA 
- 6283 (M7814). 

6284 

6285 8.5.2 FINDING THE VECTOR 

6286 

6287 THE VECTOR AREA CADDRESS 300-776) IS FILLED WITH THE INSTRUCTION IOT AND 

6288 '.¢2' (NEXT ADDRESS). BIT14 AND BITS (TX INTERUPT ENABLE AND MSTSCAN 

6289 ENABLE) ARE SET INTO THE DZCSR. “TCRO7” IS THEN SET. A DELAY IS MADE 

6290 ANC IF NO INTERUPT OCCURES (BECAUSE OF A SAD DZ11) THE PROG’ . ASSUMES 

6291 VECTOR ADDRESS 300 AND THE PROBLEM SHOULD BE FIXED IN THE .L_AGNOSTIC. 

6292 ONCE THE PROBLEM IS FIXED; THE PROGRAM SHOULD BE RE-SETUP AGAIN TO GET 

6293 CORRECT VECTOR. IF AN INTERUPT OCCURRED; THE ADDRESS TO WHICH THE DZi1 

6294 INTERUPTED TO IS PICKED UP AND REPORTED AS THE VECTOR. NOTE: IF THE 

6295 VECTOR REPORTED IS NOT THE VECTOR SET UP BY YOU; THERE IS A PROBLEM AND 

pede AUTO SIZING SHOULD NOT BE DONE. 

629 

rds 8.5.3 PARAMETER ASSUMPTIONS. 

62 

6300 SINCE TOO MUCH HARDWARE WOULD NEED TO BE TURNED ON TO SIZE THE REST OF 

6301 THE PARAMETERS; THE PROGRAM MUST ASSUME THE REMAINING VARIATIONS. THE 

6302 RESULT IF NOT TO YOUR SPECIFIC CONFIGURATION MAY BE ALTERED BY HAND 

6303 (TOGGLE IN) IF DESIRED). IN THIS WAY 95 PERCENT OF THE PARAMETER SETUP 

6304 WAS DONE BY THE PROGRAM, AND 5 PERCENT BY YOU. 

6305 THEREFORE: 

6306 1) BUS PRIORITY IS SET TO LEVELS. 

6307 2) ALL EIGHT LINES ARE ASSUMED TO BE TESTED. 

6308 3) DEFAULT BAUD RATE IS SET TO 16 (9600 BAUD). 

<4 ay MODE OF OPERATION IS “INTERNAL MODE”. 

6310 

6311 FOR ALL PARAMETER ADJUSTMENTS PLEASE REFER TO SECTION 8.4A FOR GREATER DETAIL. 
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9.0 


9.1.1 


9.1.2 


9.1.3 


RUNNING THE 0Z11 DIAGNOSTIC UNDER APT 


THE APT INTERFACE 

CZDZA HAS BEEN REDESIGNED TO BE COMPATIBLE WITH THE APT- 
AUTOMATED PRODUCT TEST SYSTEM. IT CAN BE RUN AS A STANDALONE 
DIAGNOSTIC OR IN EITHER OF THE APT MODES. CERTAIN VARIABLES 
IN THE ORIGINAL APT MODULE WERE REASSIGNED TO THE AREAS SET 
ASIDE FOR APT INTERFACING. THESE NEW VARIABLES GENERALLY 
BEGIN WITH A DOLLAR SIGN ($), E.G., $DEVM, $BASE. 


SETTING UP THE DIAGNOSTIC USING APT 


THE DIAGNOSTIC USES SEVERAL VARIABLES IN THE REGION SUBTITLED 
‘APT MAILBOX-ETABLE‘. THESE VARIABLES ARE: 


$SWREG - USED IF A SOFTWARE SWITCH REGISTER IS DESIRED WHILE 
UNDER APT 


USED TO SPECIFY THE INTERRUPT LEVEL AND THE FIRST 
VECTOR ADDRESS 


$BASE - USED TO INDICATE BOTTOM ADDRESS OF DZ11 UNDER TEST 
$DEVM - A BIT MAP REPRESENTING WHICH 0Z11'S WILL BE TESTED 
$COW1 - USED TO INDICATE WHICH LINES TO RUN ON ALL 0211'S 


$DDWO - EACH OF THE $DDW WORDS DESCRIBES THE PARAMETERS 
(LPR) FOR A PARTICULAR 0Z11, GOING UP TO 16 0211'S 


$sVECT1 


RUNNING UNDER APT 
THE USER SHOULD BE FAMILIAR WITH THE APT SYSTEM. THE APT 
TIMING PARAMETERS FOR THE O0Z1i DIAGNOSTIC WERE BASED ON AN 
11/40 PROCESSOR. IT MAY BE NECESSARY TO ADD A FEW MORE 
SECONDS IF THE DIAGNOSTIC IS OUT ON AN 11/05 PROCESSOR. 
ALL OF THE VARIABLES MENTIONED IN SECTION 9.1.2 SHOULD BE SET 
UP PRIOR TO RUNNING THE DIAGNOSTIC UNDER APT. 

NOTE 


BE SURE $BASE POINTS TO THE FIRST DZ11 BEFORE RUNNING 


BASED ON THESE VALUES, THE DIAGNOSTIC WILL SET UP THE STATUS 
TABLE. THE USER IS THEN FREE TO MONITOR UNDER APT AS NORMAL. 


SEQ 17 
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SEQ 18 


MACYi1 30AC1052) 02-JUL-85 16:19 PAGE 76 


02-JUL-85 16:17 


000001 


001120 


000011 





10.0 CHANGE HISTORY 
NOTE: HISTORY STARTS WITH REV. FO 


GO: 


CHANGE DESCRIPTION 


ALTER TRANSMITTER INTERRUPT SERVICE ROUTINE 
TO ALLOW MORE TIME FOR THE TCR BIT TO CLEAR BEFORE 
LOWERING THE BUS PRIORITY TO ENABLE DZ11 INTERRUPTS. 


MAY 1981 - INCORPORATE XON/XOFF FEATURES (BY ASSEMBLING WITH 
LATEST SYSMAC - CS) AND CHANGE ”.=” CODE MODIFIERS AT END 

OF PROGRAM FROM ABSOLUTE ADDRESS MODE TO RELATIVE. ALSO, THE 
DEFAULT BAUD RATE WAS CHANGED TO 9600 BAUD, SINCE 19.2K BAUD IS 
NOT SUPPORTED, AND TEST 34 WAS CHANGED TO REMOVE 19.2K TESTING. 


JUNE 1984 - ADDED BAUD RATE TIMING TEST. ADCED IN ORDER 

TO TEST CRYSTAL SPEEDS. TRANSMITTS CHARACTERS TO ALL 8 LINES 
AT ALL BAUD RATES (EXCEPT 19200 BAUD) FOR 1 SECOND AND IF THE 
pg FA CHARACTERS TRANSMITTED IS WITHIN A RANGE, THE TEST 

WILL PASS. 


3 -PRGFRT-==s222s2s2s2esse22es22ese2s2525 


-TITLE CZOZA-I0 

s*COPYRIGHT (C) 1976,1984,1985 ' 
;*DIGITAL EQUIPMENT CORP. 

s*MAYNARD, MASS. 01754 


3% 


3% 
3*#THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
3*#PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


7* 
$TN=1 


STARTING PROCEDURE 

sLOAD PROGRAM 

sLOAD ADDRESS 000200 

sPRESS START 

sPROGRAM WILL TYPE “CZDZA-10/<200>/CZDZAIO DZ11 LN ASYNC MUX TSTS “ 
sPROGRAM WILL TYPE “RUNNING” TO INDICATE THAT TESTING HAS STARTED 
sAT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 


sAND THEN RESUME TESTING 
-SBTTL BASIC DEFINITIONS 
s#INITIAL ADDRESS OF THE STACK POINTER ##* 1120 sa« 
STACK= 1120 
-EQUIV EMT,ERROR +sBASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE ;sBASIC DEFINITION OF SCOPE CALL 


"ener apne DEFINITIONS 


HT= 


3;CODE FOR HORIZONTAL TAB 
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(2) 000012 LF= 12 ;3;CODE FOR LINE FEED 
(2) 000015 CR= 15 3sCODE FOR CARRIAGE RETURN 
(2) 000200 CRLF= 200 3sCODE FOR CARRIAGE RETURN-LINE FEED 
(2) 177776 PS= 177776 ssPROCESSOR STATUS WORD 
(2) -EQUIV PS,PSW 
(2) 177774 STKLMT= 177774 3sSTACK LIMIT REGISTER 
(2) 177772 PIRQ= 177772 ssPROGRAM INTERRUPT REQUEST REGISTER 
(2) 177570 DSWR= 177570 ;sHARDWARE SWITCH REGISTER 
44 177570 DDISP= 177570 s sHARDWARE DISPLAY REGISTER 
(2) ;*#GENERAL PURPOSE REGISTER DEFINITIONS 
(2) 000000 RO= 0 ;s;GENERAL REGISTER 
(2) 000001 Ri= #1 ;;GENERAL REGISTER 
(2) 000002 R2= #2 ;;GENERAL REGISTER 
(2) 000003 R3= #3 ;;GENERAL REGISTER 
(2) 000004 R4= 64 +;GENERAL REGISTER 
(2) 000005 R5= 65 ;;GENERAL REGISTER 
(2) 000006 R6= 86 ;sGENERAL REGISTER 
(2) 000007 R7= 7 ;;GENERAL REGISTER 
(2) 000006 SP= 86 3sSTACK POINTER 
at 000007 PC= “7 +sPROGRAM COUNTER 
(2) ;*PRIORITY LEVEL DEFINITIONS 
(2) 000000 PRO= 0 +sPRIORITY LEVEL 0 
(2) 000040 PRi= 40 ;sPRIORITY LEVEL 1 
(2) 000100 PR2= 100 ;sPRIORITY LEVEL 2 
(2) 000140 PR3= 140 ;sPRIORITY LEVEL 3 
(2) 000200 PR4= 200 ;;PRIORITY LEVEL 4 
(2) 000240 PR5= 240 ;sPRIORITY LEVEL 5 
(2) 000300 PR6= 300 ;sPRIORITY LEVEL 6 
4 000340 PR7= 340 - 3sPRIORITY LEVEL 7 
(2) 3*”SWITCH REGISTER” SWITCH DEFINITIONS 
(2) 100000 SWi5= 100000 
(2) 040000 SW14= 40000 
(2) 020000 SW1i3= 20000 
(2) 010000 SWi2= 10000 
(2) 004000 SWil= 4000 
(2) 002000 SW10= 2000 
(2) 001000 SWO9= 1000 
(2) 000400 SWO8= 400 
(2) 000200 SWO7= 200 
(2) 000100 SWO6= 100 
(2) 000040 SWO5= 40 
(2) 000020 SWO4= 20 
(2) 000010 SWO3= 10 
(2) 000004 SWO2= 4 
(2) 000002 SWOl= 2 
(2) 000001 Swoo= 1 
(2) -EQUIV SWO9,SW9 
(2) -EQUIV SWO8,SW8 
(2) -EQUIV SWO7,SW7 
(2) -EQUIV SWO6,SW6 
(2) -EQUIV SWOS,SWS 
(2) -EQUIV SWO4,SW4 
(2) -EQUIV SWO3,SW3 


SEQ 19 
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000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 


005746 
005726 
010046 
012600 
024646 
022626 





BASIC DEFINITIONS 


-EQUIV SW02,SW2 
-EQUIV SWO1,SW1 
-EQUIV SWOO,SWO 


:*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 


BIT15= 

BIT14= 40000 
BIT13= 20000 
BIT12= 10000 
BITi1= 4000 
BIT10= 2000 
BITO9= 1000 
BITO8= 400 

BITO7= 200 

BITO6= 100 

BITOS= 40 

BITO4= 20 

BITO3= 10 

BITO2= 4 

BITO1l= 2 

BITOO= 1 

-EQUIV BITO9,BIT9 
-EQUIV BITO8,BIT8 
-EQUIV BITO7,BIT7 
-EQUIV BIT06,BIT6 
-EQUIV BITOS,BITS 
-EQUIV BIT04,BIT4 
-EQUIV BITO3,BIT3 
-EQUIV BITO2,BIT2 
-EQUIV BITO1,BIT1 
-EQUIV BITOO,BITO 


s*BASIC “CPU” TRAP VECTOR ADDRESSES 


SS SR a eS SR 


3s TIME OUT AND OTHER ERRORS 
;sRESERVED AND ILLEGAL INSTRUCTIONS 


;sBREAKPOINT TRAP (BPT) 
ss INPUT/OUTPUT TRAP (IOT) ##SCOPEs« 


ssEMULATOR TRAP (EMT) *#ERROR#s 


ERRVEC= 4 

RESVEC= 10 

TBITVEC=14 33“T" BIT 

TRTVEC= 14 33; TRACE TRAP 

BPTVEC= 14 

IOTVEC= 20 

PWRVEC= 24 +sPOWER FAIL 

EMTVEC= 30 

TRAPVEC=34 33"TRAP” TRAP 

TKVEC= 60 ss TTY KEYBOARD VECTOR 
TPVEC= 64 ssTTY PRINTER VECTOR 
PIRQVEC=240 


+sPROGRAM INTERRUPT REQUEST VECTOR 


sINSTRUCTION DEFINITIONS 


PUSH1SP=5746 sDECREMENT PROCESSOR STACK 1 WORD 
POP1SP=5726 sINCREMENT PROCESSOR STACK 1 WORD 


PUSHRO=10046 sSAVE RO ON STACK 


POPRO= 12600 sRESTORE RO FROM STACK 
PUSH2SP=24646 ;DECREMENT STACK TWICE 
POP2SP =22626 sINCREMENT STACK TWICE 


SEQ 20 





SEQ 21 
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(1) 
(1 30Z11 CONTROL AND STATUS REGISTER DEFINITIONS 
(1 :(0ZCSR) BIT DEFINITIONS 
tt fore enNE Rese E Sn seneeerKSHATENS 
C1 000010 MAINT = BIT3 sMAINTENANCE MODE ENABLE 
(1 000020 DCLR=BIT4 sDEVICE CLEAR 
1 000040 MSENAB=BITS sMASTER SCAN ENABLE 
1 000100 RIE=BIT6 sRECEIVER INTERRUPT ENABLE 
1 000200 RDONE=BIT7 sRECEIVER DONE 
1 010000 SILOEN= BITi2 ;SILO ALARM ENABLE 
1 020000 SILOAL = BIT13 ;SILO ALARM 
1 040000 TIE=BIT14 sTRANSMITTER INTERRUPT ENABLE 
100000 TROY=BIT15 s TRANSMITTER READY 
000021 $XON=21 
000023 $XOFF=23 
sDZCSR WORD DEFINITIONS 
000000 TLO=0 ; TRANSMIT LINE 0 
000400 TLi=BIT8 s TRANSMIT LINE 1 
001000 TL2=BIT9 s TRANSMIT LINE 2 
001400 TL3=BIT9!BIT8 ;TRANSMIT LINE 3 
002000 TL4=BIT10 s TRANSMIT LINE 4 
002400 TLS=BIT10!BIT8 ;TRANSMIT LINE 5 
003000 TL6=BIT1O!BIT9 ; TRANSMIT LINE 6 
003400 TL7=BIT10!BIT9!BITS ; TRANSMIT LINE 7 


sDZRBUF BIT DEFINITIONS 


010000 PARER=BIT12 sPARITY ERROR 
020000 FRMERR=BIT13 sFRAME ERROR 
040000 OVRRUN=BIT14 sOVERRUN ERROR 
100000 DVALID=BIT15 sDATA VALID 


sDZRBUF WORD DEFINITIONS 


000000 RLO=0 sRECEIVER LINE 0 
000400 RL1=BIT8 sRECEIVER LINE 1 
001000 RL2=B1T9 sRECEIVER LINE 2 
001400 RL3=BIT9!BITS ;RECEIVER LINE 3 
002000 RL4=BIT10 sRECEIVER LINE 4 
002400 RLS=BIT10!BIT&8 ;RECEIVER LINE 5 
003000 RL6=BIT1O!BIT9 ;RECEIVER LINE 6 
003400 RL7=BIT1O!BIT9!BITS ;RECEIVER LINE 7 


' ;DZLPR WORD DEFINITIONS 


ole elelelelelealealealealalelealealelealealelealelelelelelealalealealealealalalalealeala lalallala lalate laietea tate 
NII II III GIG GIGI GG DDD DPD DDG GY YY YY YY YY YUU 


Tel anl ani anl ani anl ani onl ant and onl onl and onl onl aol onl ook ond ook ook ook ol el ol el ek ol en en ee eed een ered er eres 


000000 LPO=0 sLINE PARAMETER 0 
000001 LP1=BITO sLINE PARAMETER 1 
000002 LP2=BIT1 sLINE PARAMETER 2 


bee a 


Ea ee ee 





SEQ 22 
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(1) 000003 LP3=BITI!BITO ;LINE PARAMETER 3 
(1) 000004 LP4=BIT2 ;LINE PARAMETER 4 
(1) 000005 LPS=BIT2!BITO  ;LINE PARAMETER 5 
(1) 000006 LP6=BIT2!BIT1 ;LINE PARAMETER 6 
(1) 000007 LP7=BIT2!B1T1!B1T0 ;LINE PARAMETER 7 
(1) 000000 FIVE=0 ;FIVE BITS/CHAR,1 STOP BIT 
(1) 000010 SIX=BIT3 ;SIX BITS/CHAR,1 STOP BIT 
(1) 000020 SEVEN=BIT4 ;SEVEN BITS/CHAR,1 STOP BIT 
(i) - 000030 EIGHT=B1T4!BIT3 ;EIGHT BITS/CHAR.1 STOP BIT 
(1) 000040 FIVES=81T5 ;FIVE BITS/CHAR,2 STOP BITS 
(1) 000050 SIXS=BITS!BIT3 ;SIX BITS/CHAR,2 STOP BITS 
(1) 000060 SEVENS=B1TS!BIT4 ;SEVEN BITS/CHAR, 2 STOP BITS 
(1) 000070 EIGHTS=BITS!BIT4!B1T3 ;EIGHT BITS/CHAR, 2 STOP BITS 
(1) 000100 PARITY =B1T6 ;PARITY ENABLED 
(1) 000200 ODDPAR=BIT7 ;000 PARITY ENABLED 
(1) 000000 ONESTOP=0 ;ONE STOP BIT ENABLED 
(1) 000040 TWOSTOP=BITS ;TWO STOP BITS ENABLED 
(1) 000000 EVEPAR=0 ;EVEN PARITY ENABLED 
C1) 010000 RCVON=BIT12 ;ENABLE RECEIVER (RECEIVER ON) 
(1) 000000 $50=0 ;SPEED 50 BAUD 
(1) 000400 $75=B1T8 ;SPEED 75 BAUD 
(1) 001000 $110=BI1T9 ;SPEED 110 BAUD 
(1) 001400 $134=B1T9!B1T8 ;SPEED 134.5 BAUD 
(1) 002000 $150=B1T10 ;SPEED 150 BAUD 
(1) 002400 $300=BIT10!B1T8 ;SPEED 300 BAUD 
(1) 003000 $600=BIT10!BIT9 ;SPEED 600 BAUD 
(1) 003400 $1200=BIT10!BIT9!BIT8  ;SPEED 1200 BAUD 
(1) 004000 $1800=B1T11 ;SPEED 1800 BAUD 
(1) 004400 $2000=BIT11!B1T8 ;SPEED 2000 BAUD 
(1) 005000 $2400=B1T11!B1T9 ;SPEED 2400 BAUD 
(1) 005400 $3600=BIT11!BIT9!BIT8  ;SPEED 3600 BAUD 
(1) 006000 $4800=B1T11!BIT10 ;SPEED 4800 BAUD 
(1) 006400 $7200=BIT11!BIT10!B1T8 ;SPEED 7200 BAUD 
(1) 007000 $9600=BIT11!BIT10!BIT9 ;SPEED 9600 BAUD 
C1) 007400 $19200=BIT11!BIT10!B1T9!BIT8 | ;SPEED 19200 BAUD 
(1) ;DZTCR BIT DEFINITIONS 

3 Sn ee ee ee ee ee ee ee 
(1) 000001 TCRO=BITO ;TCRO 
(1) 000002 TCR1=BIT1 ;TCRI 
(1) 000004 TCR2=B1T2 ;TCR2 
(1) 000010 TCR3=BIT3 ;TCR3 
(3) 000020 TCR4=BIT4 ;TCR4 
(1) 000040 TCRS=BITS ;TCRS 
(1) 000100 TCR6=B1T6 ;TCR6 
(1) 000200 TCR7=B1T7 ;TCR? 
(1) 000400 DTRO=BIT8 ;DTRO 
(1) 001000 OTR1=B1T9 ;0TR1 
(1) 002000 OTR2=B1T10 ;D7R2 
(1) 004000 OTR3=B1T11 ;DTR3 
(1) 010000 OTR4=BIT12 ;DTR4 
(1) 020000 OTRS=BIT13 ;0TRS 
(1) 040000 DTR6=BIT14 ;DTR6 





SEQ 23 
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Ht 100000 OTR7=B1IT15 sDTR7 
1 
Ft ;DZMSR BIT DEFINITIONS 
(1) 000001 RINGO=BITO sRING INDICATED ON LINE 0 
(1) 000002 RING1=BIT1 ;RING INDICATED ON LINE 1 
(1) 000004 RING2=BIT2 sRING INDICATED ON LINE 2 
(1) 000010 RING3=BIT3 sRING INDICATED ON LINE 3 
(1) 000020 RING4=BIT4 sRING INDICATED ON LINE 4 
(1) 000040 RINGS=BITS sRING INDICATED ON LINE 5 
(1) 000100 RING6=BIT6 sRING INDICATED ON LINE 6 
(1) 000200 RING7=BIT7 sRING INDICATED ON LINE 7 
(1) 000400 C00=BIT8 s;CARRIER PRESENT ON LINE 0 
(1) 001000 C0i=BIT9 sCARRIER PRESENT ON LINE 1 
(1) 002000 CO02=BIT10 sCARRIER PRESENT ON LINE 2 
(1) 004000 CO3=BIT1i1 sCARRIER PRESENT ON LINE 3 
(1) 010000 C04=BIT12 ;CARRIER PRESENT ON LINE 4 
(1) 020000 Co5=BIT13 sCARRIER PRESENT ON LINE 5 
(1) 040000 C06=BIT14 sCARRIER PRESENT ON LINE 6 
te 100000 CO7=BIT1i5 ;CARRIER PRESENT ON LINE 7 
(1) :DZTOR BIT DEFINITIONS 
at protect rte ee een ------- 
i 000400 BRKO=BIT8 ;BREAK FOR LINE 0 
1 001000 BRK1=BIT9 ;BREAK FOR LINE 1 
1 002000 BRK2=BIT10 sBREAK FOR LINE 2 
004000 BRK3=BITi1L ;BREAK FOR LINE 3 
010000 BRK4=BIT1i2 ;BREAK FOR LINE 4 
020000 BRK5=BIT13 sBREAK FOR LINE 5 
040000 BRK6=BIT14 sBREAK FOR LINE 6 
100000 BRK7=BIT15 sBREAK FOR LINE 7 


;TABLE OF LOOP AROUND FUNCTIONS (H325) 


BANOO NLL LON 


ol aul el onl aol al al alae ond ond ocd ack aol aol od eo ee ek en eet en 
III III III YY YY 


3 
3 

: I t 

; V t 

; REC TRANS 
F DATA DATA 
; 

; iat ne ee ee ee 

3 I t 

3 V t 

; co RTS 

; 

3 

3 iia he ee ee 

F I t 

; V t 

Fy RING OTR 





r-— 


CZ0ZA-I0 
CZDZAI.P11 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
€1) 000010 
(1) 000012 
(1) 
(1) 
C1) 000020 
(1) 000022 
C1) 000024 
(1) 000026 
C1) 000030 
(1) 0c0032 
C1) 000034 
(1) 000036 
(2) 
(2) 
(3) 
(2) 
(2) 
(2) 
(2) 000046 
(2) 
(2) 000052 
(2) 
(1) 
(1) 
(1) 000174 
(1) 000176 
(1) 
(1) 000200 
(1) 
(1) 000210 
(1) 
(2) 
(2) 
(2) 001000 
(2) 
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000000 














SEQ 24 


§ RRR EEREREEASASEREREREEAERSEAEAEEEEEEAEAAAAAARERALEREREEERAEEAREEEES 


; TRAPCATCHER FOR ILLEGAL INTERRUPTS 
sTHE STANDARD “TRAP CATCHER” IS PLACED 
sBETWEEN ADDRESS 0 TO ADDRESS 776. 

sIT LOOKS LIKE “PC+e HALT”. 


§ SERA EREREREAAAEEEEEARESEARARAERAREARAEARERARAREAREARAERAREREAEREAEEES 


-20 
sSTANDARD INTERRUPT VECTORS 
; lie nn ee ee ee 
-=10 
SET.PS sFAKE “MTPS” INSTRUCTION TRAP 
PR7 sMAKE SURE PS IS PRIORITY 7 
-=20 
. SCOPE sSCOPE LOOP HANDLER 
PR7 sHANDLE AT PRIORITY 7 
$PWRON sPOWER FAIL HANDLER 
340 sSERVICE AT PRIORITY LEVEL 7 
$ERROR sERROR HANOLER 
340 sSERVICE AT PRIORITY LEVEL 7 
. TRPSRV sGENERAL HANDLER DISPATCH SERVICE 


340 sSERVICE AT PRIORITY LEVEL 7 
-SBTTL ACT11 HOOKS 


§ § PRRRAEEEEEEE EERE ERED ERED EE DEEEEE EEE ED EEEDEEEDEDEEEDEEEEEDEEEEE 
sHOOKS REQUIRED BY ACT11 


#SVPC=. ;SAVE PC 
FENDAD 331)SET LOC.46 TO ADDRESS OF SENDAD IN .$E0P 
“WORD 0 ::2)SET LOC.52 TO ZERO 
_=$SVPC 33 RESTORE PC 
2174 
DISPREG:0 ;SOFTWARE DISPLAY REGISTER FOR SWITCHLESS 11S 
SWREG: 0 ;SOFTARE SWITCH REGISTER FOR SWITCHLESS 115 
-=200 
002150 ; JMP START ;GO TO START OF PROGRAM 
#21 
025244 JMP XSTART :GOTO CABLE TEST/ECHO TEST 


-=1000 
055103 055104 MTITLE: .ASCIZ <200><12>/CZDZA-10/<200>/CZDZAIO DZii LN ASYNC MUX TSTS /<200> 


ee 


CZ0ZA-I0 
CZOZAI.P1ii 


RAAAAAAAAR AAR AAAL 
WAUWUWWWWWWWW WW WOW 


AAA AAA NOON 
UNAUWUWWWUUWW WWW OU WW UW Ut 


AAAAAAAAARAARAARAARARA 
SPPAPWUWWMVUUVUN uw 


-— 


LSS SSI 9 BB BB BB BS BB BU BUG UGG 
— 
z 
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SEQ 25 
COMMON TAGS 
-SBTTL COMMON TAGS 
§ PRRRAEEEAEEE REESE ESSE SEED ESE EOD OS OE OOOO ON EEEEEEEEE EERE EEE 


;#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
s*USED IN THE PROGRAM. 


-*1120 
$CMTAG: ssSTART OF COMMON TAGS 

-WORD 0 
$TSTNM: .BYTE 0 ssCONTAINS THE TEST NUMBER 
SERFLG: .BYTE 0 ssCONTAINS ERROR FLAG 
$ICNT: .WORD 0 ssCONTAINS SUBTEST ITERATION COUNT 
$LPADR: .WORD 0 ssCONTAINS SCOPE LOOP ADDRESS 
$LPERR: .WORD 0 ssCONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD O ssCONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE 0 ssCONTAINS ITEM CONTROL BYTE 
SERMAX: .BYTE 1 ssCONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 ;sCONTAINS PC OF LAST ERROR INSTRUCTION 
$GDADR: .WORD 0 ssCONTAINS ADDRESS OF ‘GOOD’ DATA 
$BDADR: .WORD 0 ssCONTAINS ADDRESS OF ‘BAD’ DATA 
$GDDAT: .WORD 0 ssCONTAINS ‘GOOD’ DATA 
$BDDAT: .WORD 0 ssCONTAINS ‘BAD’ DATA 

oo ; + sRESERVED--NOT TO BE USED 
$AUTOB: .BYTE 0 ssAUTOMATIC MODE INDICATOR 
SINTAG: pate . ss INTERRUPT MODE INDICATOR 
SWR: -WORD  OSWR ssADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD DDISP ssADDRESS OF DISPLAY REGISTER 
$TKS: 177560 ssTTY KBD STATUS 
$TKB: 177562 ss TTY KBD BUFFER 
$TPS: 177564 ssTTY PRINTER STATUS REG. ADDRESS 
$TPB: 177566 ssTTY PRINTER BUFFER REG. ADDRESS 
$NULL: .BYTE 0 ssCONTAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE 2 ssCONTAINS @ OF FILLER CHARACTERS REQUIRED 
$FILLC: .BYTE 12 ssINSERT FILL CHARS. AFTER A “LINE FEED” 
$TPFLG: .BYTE 0 s3"TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES) 
$REGAD: .WORD 0 ssCONTAINS THE ADDRESS FROM 

ssWHICH ($REGO) WAS OBTAINED 

$REGO: .WORD 0 ssCONTAINS (( $REGAD) +0) 
$REG1: .WORD 0 ssCONTAINS (( $REGAD)+2) 
$REG2: .WORD 0 ssCONTAINS (($REGAD)+4) 
$REG3: .WORD 0 ssCONTAINS (($REGAD)+6) 
$REG4: .WORD 0 ssCONTAINS (( $REGAD)+10) 
$REGS: .WORD 0 ssCONTAINS (($REGAD)+12) 
$STMPO: .WORD 0 ssUSER DEFINED 
$TMPi: .WORD 0 ssUSER DEFINED 
$STMP2: .WORD 0 ssUSER DEFINED 
$TMP3: .WORD 0 +sUSER DEFINED 
$TIMES: 0 3sMAX. NUMBER OF ITERATIONS 
$QUES: .ASCII /?/ ssQUESTION MARK 
SCRLF: .ASCII <15> ssCARRIAGE RETURN 
$LF: -ASCIZ <12> ssLINE FEED 


b 5 PROS EEDD 4464 6606006606 0404606 606040000460606650000004000000000404 
-SBTTL APT MAILBOX-ETABLE 


ee 


CZ0ZA-I0 
CZOZAI.Pil 


r- 


001264 
001265 
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APT MAILBOX-ETABLE 


Pritt) 
-EVEN 

$MAIL: 3sAPT MAILBOX 

$MSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
$FATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
$TESTN: .WORD ATESTN ;;TEST NUMBER 

$PASS: .WORD APASS ;;PASS COUNT 

$DEVCT: .WORD ADEVCT ;;DEVICE COUNT 

$UNIT: .WORD AUNIT ;;1/0 UNIT NUMBER 
$MSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 
$MSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 

SE TABLE: 3sAPT ENVIRONMENT TABLE 
$SENV: .BYTE AENV 3 sENVIRONMENT BYTE 
SENVM: .BYTE AENVM ;;ENVIRONMENT MODE BITS 
$SWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
$USWR: .WORD AUSWR ;;USER SWITCHES 

$CPUOP: .WORD ACPUOP ;;CPU TYPE,OPTIONS 


;* BITS 15-11=CPU TYPE 

3* ; 11/04=01,11/05=02, 11/20=03,11/40=04, 11/45=05 
3% 11/70=06 »P0Q=07,Q=10 

3% BIT 10=REAL TIME CLOCK 

3% BIT 9=FLOATING POINT PROCESSOR 


3 BIT 8=MEMORY MANAGEMENT 
$MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
$MTYP1: .BYTE AMTYP1 ;;MEM. TYPE, BLK@1 


i* MEM.TYPE BYTE -- CHIGH BYTE) 
3* 900 NSEC CORE=001 

3 300 NSEC BIPOLAR=002 

74 500 NSEC M0S=003 


$MADR1: .WORD AMADRi ;;HIGH ADDRESS ,BLKG1 


3 MEM.LAST ADOR.=3 BYTES,THIS WORD AND LOW OF “TYPE” ABOVE 


$MAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS,M.S. BYTE 
$MTYP2: .BYTE AMTYP2 ;;MEM. TYPE .BLKG2 

$MADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS ,BLKG2 
$MAMS3: .BYTE AMAMS3 ;;HIGH ADDRESS,M.S.BYTE 
$SMTYP3: .BYTE AMTYP3S ;;MEM. TYPE .BLKO3 

$MADR3: .WORD AMADRS ;;MEM.LAST ADDRESS ,BLKO3 
$MAMS4: .BYTE AMAMS4 ;;HIGH ADDRESS,M.S.BYTE 
$MTYP4: .BYTE AMTYP4 ;;MEM. TYPE .BLKO4 

$MADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS ,BLKO4 
$VECT1: .WORD AVECTi ;; INTERRUPT VECTOR@1,BUS PRIORITY@1 
$VECT2: .WORD AVECT2 ;; INTERRUPT VECTOR@2BUS PRIORITY#2 
$BASE: .WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
$DEVM; .WORD ADEVM ;;DEVICE MAP 

$COWi: .WORD ACDOW1 ;;CONTROLLER DESCRIPTION WORD@1 
sCOW2: .WORD ACOW2 ;;CONTROLLER DESCRIPTION WORDO2 
$00W0: .WORD ADOWO ;;DEVICE DESCRIPTOR WORDGO 
$00Wi: .WORD ADOW1 ;;DEVICE DESCRIPTOR WORDO1 
s00W2: .WORD ADOW2 ;;DEVICE DESCRIPTOR WORDO2 
$00W3: .WORD ADODW3 ;;DEVICE DESCRIPTOR WORDOS 
$00W4: .WORD ADDW4 ;;DEVICE DESCRIPTOR WORDO4 
$D0WS: .WORD ADOWS ;;DEVICE DESCRIPTOR WORD@S 
$00W6: .WORD ADOW6 :;DEVICE DESCRIPTOR WORDO6 
$00W7: .WORD ADOW7 ;;DEVICE DESCRIPTOR WORDO7 
$00wé: .WORD ADOWS ;;DEVICE DESCRIPTOR WORDOS 
$00W9: .WORD ADOW9 ;;DEVICE DESCRIPTOR WORDOO 





CZ0ZA-10 
CZO7AI Pil 


(4) 001344 
(4) 001346 
(4) 001350 
(4) 001352 
(4) 001354 
(4) 001356 


(4) 001360 
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APT MAILBOX-ETABLE 


sD0W10: . 
$DOW11: . 
$sD0Wl2: . 
$DOW13: . 
sD0W14: . 
sD0W15: . 


SETEND: 


ADDW10 
ADOW11 
ADDW12 
ADOW13 
ADOW14 
ADOW15 





ssDEVICE DESCRIPTOR WORDO10 
ssDEVICE DESCRIPTOR WORD#11 
ssDEVICE DESCRIPTOR WORD#12 
ssDEVICE DESCRIPTOR WORDO13 
ssDEVICE DESCRIPTOR WORDO14 
ssDEVICE DESCRIPTOR WORD#15 


SEQ 27 


CZD0ZA-I0 
CZOZAI.P11 


~ 
w 
~ 


QOL OLE 
AWWW WWW WU 
we YY waa 


001360 


C2) 001360 
(2) 001362 


(2) 001364 
(2) 001366 
(2) 001370 
(2) 001372 
(2) 001374 
(2) 001376 
(2) 001400 
(2) 0014062 
(2) 001404 
(2) 001406 
(2) 001410 
(2) 001411 


(2) 001412 
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000000 
000000 


000377 
017070 
000000 
000000 
000000 
000000 
000000 
000000 
000001 
00000* 
000001 

001 


001500 





ERROR POINTER TABLE 
.SBTTL ERROR POINTER TABLE 
s@THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


s#THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
s*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 













s*NOTEL: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC). 

s*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
i¢ EM ssPOINTS TO THE ERROR MESSAGE 

hg DH +sPOINTS TO THE DATA HEADER 

i* DT s+sPOINTS TO THE DATA 

:* DF 3sPOINTS TO THE DATA FORMAT 

SERRTB: 


sPROGRAM CONTROL PARAMETERS 


NEXT: 0 sADDRESS OF NEXT TEST TO BE EXECUTED 
LOCK: 0 sADDRESS FOR LOCK ON CURRENT DATA 


LINE: 377 sDEFAULT ALL EIGHT LINES RUNNING 

PAR: 17070 ;PARAMETERS: 8 BITS/CHAR,2 STOP BITS, 9600 BAUD,NO PARIT 
MODE: 90 sDEFAULT MAINTENANCE MODE 

SAVLIN: 0 sLINE NUMBER 

XMTLIN: O s TRANSMISSION LINE NUMBER 

XMTCNT: O sCOUNT OF WORDS IN A TRANSMISSION PATTERN 
REGIST: 0 sDEVICE ADDRESS STORAGE LOCATION 

SAVPC: 0 * sPROGRAM COUNTER STORAGE 

DZACTV: .BLKW 1 3#0Z11'S SELECTED ACTIVE. 

RUN: 1 ;*POINTER ONE PAST RUNNING DEVICE. 

DZNUM: .BLKB 1 ;*OCTAL NUMBER OF D0Z11'S. 

SAVNUM: .BYTE 1 ;#WORKABLE NUMBER. 

-EVEN 

ACTIVE: DZ.MAP sTABLE POINTER. 


—- 


CZ0ZA-I0 
CZO0ZAI.Pil 


(2) 001414 
(2) 001415 
(2) 001416 
(2) 001417 
(2) 001420 


(2) 001422 
(2) 001424 
(2) 001426 
(2) 001430 
(2) 001432 
C2) 001434 
(2) 001436 
(2) 001440 
(2) 001442 
(2) 001444 
(2) 001446 
(2) 001450 
(2) 0¢1452 
(2) 001454 
(2) 001456 
(2) 001460 
(2) 001462 


C2) 000024 
(2) 000044 


(2) 001462 
(2) 001462 
(2) 001464 
(2) 001466 
001470 
001472 
001474 


001500 











SEQ 29 
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ERROR POINTER TABLE 
sPROGRAM CONTROL FLAGS 


EIAFLG: .BYTE 0 s0=EIA 100000=20MA 
; 0 sPROGRAM INITIALIZATION FLAG 
HORFLG: .BYTE : sPROGRAM INITIALIZATION FLAG FOR HEADER MAP 
0 


MNTFLG: .BYTE sMAINTENANCE BIT SET FLAG 
yt BYTE ; TRANSMISSION COMPLETION FLAG 
;DATA VARIABLES 

TDO: -WORD O 

TO1: «WORD 0O 

TD2 «WORD 0 

TD3: «WORD O 

TD4 -WORD O 

TOS: -WORD O 

TD6 -WORD O 

107 -WORD 0 

TRO -WORD O 

TR1: -WORD 0 

TR: -WORD 0 

TR3 -WORD 0 

TR4: -WORD 0 

TRS: -WORD 0 

TR6: -WORD O 

TR7: «WORD O 

STOP: 

3 -- END MACRO *222222s22s2222222= 


-SBTTL APT PARAMETER BLOCK 


ECP Oriti irri iii iit iti iri tiittitititttttittitti ttt t ttt ttt ty 
sSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
f PERERA EEAEEEEAAEAEEREAAAEEEAEEASEEERRAAEEESAREARERE REE EE ERED 
-$X=. = 5;SAVE CURRENT LOCATION 
224 3sSET POWER FAIL TO POINT TO START OF PROGRAM 
200 33FOR APT START UP 
244 3sPOINT TO APT INDIRECT ADDRESS PNTR. - 
$APTHOR ;;POINT TO APT HEADER BLOCK 
-=.$X  ;;RESET LOCATION COUNTER 
Perici tir rir rit itittitittitttttittitit ttt ttt tty 
sSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
sINTERFACE SPEC. 


SAPTHD: 

$HIBTS: .WORD 0 ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

$MBADR: .WORD $MAIL ::ADDRESS OF APT MAILBOX (BITS 0-15) 

$TSTM: .WORD 90. ;;RUN TIM OF LONGEST TEST 

$PASTM: .WORD 95. 3;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

$UNITM: .WORD 95. ;:ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
-WORD SETEND-$MAIL/2 ;;LENGTH MAILBOX-ETABLECWORDS ) 
30Z11 STATUS TABLE AND ADDRESS ASSIGNMENTS 
3 eee ee ee ee ee 

=1500 

DZ.MAP: 








SEQ 30 


3 -$ JUNK -2222eceseeeeeeeeecaeszessssaesseseses 


sCONTROL STATUS REGISTER FOR DZ11 NUMBER 0 
sRECEIVER AND BASE VECTOR FOR DZ11 NUMBER 0 
sPRIORITY LEVEL AND EIA FLAG SELECTOR 

sALL LINES SELECTED 

sPARAMETERS 

sMAINTENANCE MODE FOR THIS DEVICE 


3 -$JUNK-s2sseeeeeacseeecessseeessesssaass222 


sCONTROL STATUS REGISTER FOR DZ11 NUMBER 1 
sRECEIVER AND BASE VECTOR FOR DZ11 NUMBER 1 
sPRIORITY LEVEL AND EIA FLAG SELECTOR 

sALL LINES SELECTED 

sPARAMETERS 

sMAINTENANCE MODE FOR THIS DEVICE 


; -$ JUNK -s2222sse2eeeeeeeee2ensee222222222225 


sCONTROL STATUS REGISTER FOR DZ11 NUMBER 2 
sRECEIVER AND BASE VECTOR FOR DZ11 NUMBER 2 
sPRIORITY LEVEL AND EIA FLAG SELECTOR 

sALL LINES SELECTED 

;PARAMETERS 

sMAINTENANCE MODE FOR THIS DEVICE 


: -$ JUNK -22222e2e2eeeeseseeeeeseeee2e2e222222 


sCONTROL STATUS REGISTER FOR DZ11 NUMBER 3 
sRECEIVER AND BASE VECTOR FOR DZ11 NUMBER 3 
sPRIORITY LEVEL AND EIA FLAG SELECTOR 

sALL LINES SELECTED 

sPARAMETERS 

sMAINTENANCE MODE FOR THIS DEVICE 


; -$ JUNK -s2222sesesesesseseeeeseeee2e2222=2=2=2 
;CONTROL STATUS REGISTER FOR DZ11 NUMBER 4 

sRECEIVER AND BASE VECTOR FOR DZ11 NUMBER 4 
;PRIORITY LEVEL AND EIA FLAG SELECTOR 

s;ALL LINES SELECTED 

;PARAMETERS 

sMAINTENANCE MODE FOR THIS DEVICE 


; -$JUNK -=222seseseceeeeseeeeeeeseseeez222222 


sCONTROL STATUS REGISTER FOR DZ1i1 NUMBER 5 
sRECEIVER AND BASE VECTOR FOR DZ11 NUMBER 5 
sPRIORITY LEVEL AND EIA FLAG SELECTOR 

sALL LINES SELECTED 

;PARAMETERS 

sMAINTENANCE MODE FOR THIS DEVICE 


: -$ JUNK -sssssse2escereneeee2eseseeeseeesEE22 
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(3) 

(3) 

€3) 001500 000001 DZCRO: .BLKW 1 

(3) 001502 000001 OZVCO: .BLKW 1 

(3) 001504 000001 DZLVO: .BLKW 1 

(3) 001506 000001 LINEO: .BLKW 1 

C3) 001510 000001 PARO: -BLKW 1 

(3) 001512 000001 MANTO: .BLKW 1 

(3) ; -- END O MACRO =2222222222es222222 

(3) 

(3) 

(3) 001514 000001 DZCRi: .BLKW 1 

(3) 001516 000001 DZVC1: .BLKW 1 

(3) 001520 000001 OZLV1: .BLKW 1 

(3) 001522 000001 LINE1: .BLKW 1 

(3) 001524 000001 PARI: -BLKW 1 

(3) 001526 000001 MANT1: .BLKW 1 

(3) 3 -- END 0 MACRO =222222222222es2222 

(3) 

(3) 

(3) 001530 000001 OZCR2: .BLKW 1 

(3) 001532 000001 DZvC2: .BLKW 1 

(3) 001534 000001 DZLV2: .BLKW 1 

(3) 0C1536 000001 LINE2: .BLKW i 

(3) 001540 000001 PAR2: -BLKW a 

(3) 001542 000001 MANT2: .BLKW 1 

(3) 3 -- END O MACRO =22222=s22222222222 

(3) 

(3) 

(3) 001544 000001 DZCR3: .BLKW 1 

(3) 001546 000001 OZVC3: .BLKW 1 

(3) 001550 000001 DZLV3: .BLKW 1 

(3) 001552 000001 LINE3: .BLKW 1 

(3) 001554 000001 PAR3: -BLKW 1 

(3) 001556 000001 MANT3: .BLKW 1 

(3) 3; -- END O MACRO ==22222222222222e22= 

(3) 

(3) 

(3) 001560 000001 DZCR4: .BLKW | 

(3) 001562 000001 DZVC4: .BLKW 1 

(3) 001564 000001 DZLV4: .BLKW 1 

(3) 001566 000001 LINES: .BLKW 1 

(3) 001570 000001 PAR4: -BLKW 4 

(3) 001572 000001 MANT4: .BLKW 1 

(3) 3; -- END O MACRO ===2=2=-== 

(3) 

(3) 

(3) 001574 000001 DZCRS -BLKW 1 

(3) 001576 000001 DZvcs -BLKW 1 

(3) 001600 000001 DZLVS: .BLKW 1 

(3) 001602 000001 LINES: .BLKW 1 

(3) 001604 000001 PARS: -BLKW 1 

(3) 001606 000001 MANTS -BLKW 1 

(3) 3 -- END 0 MACRO Pee ere rere rererer eres y 

(3) 

(3) 


| 























SEQ 31 


CZ0ZA-I0 MACY11 30AC1052) 02-JUL-85 16:19 PAGE 83-12 
CZOZAI.Pil 02-JUL-85 16:17 APT PARAMETER BLOCK 
(3) 001610 000001 OZCR6: .BLKW 1 sCONTROL STATUS REGISTER FOR DZ11 NUMBER 6 
(3) 001612 000001 DOZVC6: .BLKW 1 sRECEIVER AND BASE VECTOR FOR DZ11 NUMBER 6 
(3) 001614 000001 OZLV6: .BLKW 1 sPRIORITY LEVEL AND EIA FLAG SELECTOR 
€3) 0016516 000001 LINE6: .BLKW 1 sALL LINES SELECTED 
(3) 001620 000001 PAR6: -BLKW 1 sPARAMETERS 
(3) 001622 000001 MANT6: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
(3) 3: -- END O MACRO 2222222222s22222222 
344 3 -$JUNK-s2s22seeseeese2eeeee2eeese2222222222 
(3) 001624 000001 DZCR7: .BLKW 1 sCONTROL STATUS REGISTER FOR DZ11 NUMBER 7 
€3) 001626 000001 DOZVC7: .BLKW 1 sRECEIVER AND BASE VECTOR FOR D0Z11 NUMBER 7 
(3) 001630 000001 OZLV7: .BLKW 1 sPRIORITY LEVEL AND EIA FLAG SELECTOR 
(3) 001632 000001 LINE7: .BLKW 1 sALL LINES SELECTED 
(3) 001634 000001 PAR7: -BLKW 1 ;PARAMETERS 
(3) 001636 000001 MANT7: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
(3) ; -- END 0 MACRO =2222222s2222222222 
$44 3 -$JUNK-ss2sseeeesseeeeeee2e2eeeee5522222222 
(3) 001640 000001 OZCR1i0: .BLKW 1 sCONTROL STATUS REGISTER FOR DZ11 NUMBER 10 
C3) 001642 000001 OZVC10: .BLKW 1 ;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 10 
(3) 001644 000001 DZLV10: .BLKW 1 sPRIORITY LEVEL AND EIA FLAG SELECTOR 
(3) 001646 000001 LINE10: .BLKW 1 ;ALL LINES SELECTED 
(3) 001650 000001 PAR1O: .BLKW 1 sPARAMETERS 
(3) 0C1652 000001 MANT10: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
(3) 3 -- END O MACRO =22222222e2s2222222 
‘se 3 -S$JUNK-s22sss2eseeeeeeeeseeeeee5e2225522525 
(3) 001654 000001 DZCRii: .BLKW 1 sCONTROL STATUS REGISTER FOR DZ1i NUMBER 11 
(3) 001656 000001 OZVCii: .BLKW 1 sRECEIVER AND BASE VECTOR FOR DZ11 NUMBER 11 
(3) 001660 000001 DZLV1i1: .BLKW 1 ;PRIORITY LEVEL AND EIA FLAG SELECTOR 
(3) 001662 000001 LINE11: .BLKW 1 s;ALL LINES SELECTED 
(3) 001664 000001 PARi1: .BLKW 1 ;PARAMETERS 
(3) 001666 000001 MANT11: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
(3) 3 -- END 0 MACRO ====22222s2222sceee5 
see 3 -$JUNK-s2sesessseeeeeeesseeeeeeeeeeee2e25225 
(3) 001670 000001 OZCR1i2: .BLKW 1 sCONTROL STATUS REGISTER FOR DZ11 NUMBER 12 
(3) 001672 000001 OZVCi2: .BLKW 1 sRECEIVER AND BASE VECTOR FOR DZ11 NUMBER 12 
(3) 001674 000001 DZLVi2: .BLKW 1 sPRIORITY LEVEL AND EIA FLAG SELECTOR 
(3) 001676 000001 LINE12: .BLKW 1 ;ALL LINES SELECTED 
(3) 001700 000001 PARi2: .BLKW 1 ;PARAMETERS 
(3) 001702 000001 MANT12: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
(3) 3s -- END O MACRO 2222222222222222222 
$44 3 -$JUNK-2ssssesessceseeeeeneaeee222e22222222 
(3) 001704 000001 DZCR13: .BLKW 1 ;CONTROL STATUS REGISTER FOR DZ1i1 NUMBER 13 
(3) 001706 000001 DOZVC13: .BLKW 1 sRECEIVER AND BASE VECTOR FOR DZi1i NUMBER 13 
(3) 001710 000001 DZLV13: .BLKW 1 s;PRIORITY LEVEL AND EIA FLAG SELECTOR ‘ 
(3) 001712 000001 LINE13: .BLKW 1 ;ALL LINES SELECTED : 
(3) 001714 000001 PAR13: .BLKW 1 ;PARAMETERS 
(3) 001716 000001 MANT13: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
(3) ; -- END O MACRO ==ssss2ss222e2222222 
+ee : -$ JUNK -s22ssseseeeseeeeseeseeeseesesess5222 
(3) 001720 000001 OZCR14: .BLKW 1 ;CONTROL STATUS REGISTER FOR DZ11 NUMBER 14 
(3) 001722 000001 OZVC14: .BLKW 1 sRECEIVER AND BASE VECTOR FOR DZ11 NUMBER 14 


AR A aha le ee rset 


CZ0ZA-I0 
CZDZAI.P11 


(3) 001724 
(3) 001726 
001730 
001732 


001734 
001736 
001740 
001742 
001744 
001746 


AAAAAAAA AAA 
AWAWWWWWWWnWww 


001750 
001752 
001754 
001756 
001760 
001762 


SNS SY YY YY 


AWWW 


001764 
001766 
001770 
001772 
001774 
001776 


NNN NN NNN LN NNN NNN NNN ENON 
FP RrPWAWNWWWWUWWWWWww 
SS SB YB YY YY YU 


002000 








SEQ 32 


MACY11 30A(1052) 02-JUL-85 16:19 PAGE 83-13 
APT PARAMETER BLOCK 


02-JUL-85 16:17 


000001 
000001 
000001 
000001 


000001 
000001 
000001 
000001 
000001 
000001 


000001 
000001 
000001 
000001 
000001 
000001 


000001 
000001 
000001 
000001 
000001 
000001 


177777 





OZLV14: .BLKW i sPRIORITY LEVEL AND EIA FLAG SELECTOR 
LINE14: .BLKW 1 s;ALL LINES SELECTED 
PARI4: .BLKW 1 sPARAMETERS 
MANT14: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
; -- END O MACRO =22e2seeeseee222222 
3 -$JUNK-seeseeceeeeeeees2eeeeeceee2e2e225222 
DZCRiS: .BLKW 1 sCONTROL STATUS REGISTER FOR DZ11 NUMBER 15 
DZVC15: .BLKW i sRECEIVER AND BASE VECTOR FOR DZ11 NUMBER 15 
OZLV1iS5: .BLKW 1 sPRIORITY LEVEL AND EIA FLAG SELECTOR 
LINE1S5: .BLKW 1 sALL LINES SELECTED 
PARIS: .BLKW 1 ;PARAMETERS 
MANT15: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
: -- END O MACRO =2=2s2<ss2e222222222 
3 -$JUNK-222e2esseseeeeeeeeeeeese222222esee5e2 
OZCR1i6: .BLKW i sCONTROL STATUS REGISTER FOR 0Z11 NUMBER 16 
OZVC1i6: .BLKW 1 sRECEIVER AND BASE VECTOR FOR DZ11 NUMBER 16 
DZLV16: .BLKW 1 sPRIORITY LEVEL AND EIA FLAG SELECTOR 
LINE16: .BLKW 1 ;ALL LINES SELECTED 
PARI6: .BLKW 1 ;PARAMETERS 
MANT16: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
3; -- END O MACRO =s2s22s22eee2e222== 
; -$ JUNK -22222ssese2e2ee2ee2eeese5e2222eeeeee5 
OZCR1i7: .BLKW 1 s;CONTROL STATUS REGISTER FOR DZ11 NUMBER 17 
DZVC17: .BLKW 1 sRECEIVER AND BASE VECTOR FOR DZ11 NUMBER 17 
DZLV17: .BLKW 1 sPRIORITY LEVEL AND EIA FLAG SELECTOR 
LINE17: .BLKW 1 ;ALL LINES SELECTED 
PARi7: .BLKW 1 ;PARAMETERS 
MANT17: .BLKW 1 sMAINTENANCE MODF FOR THIS DEVICE 
; -- END 0 MACRO =2===sss22222222222 


DZ.END: 177777 





— 





CZ0ZA-I0 
CZDZAI.P11 


a“ 
to 
— 


ee 
2 po pe pe 


AAAARAAAAAAL 
PO PO GENO 10 WD 10 Uh 
et ah A ee 


002002 
002002 


002004 


002006 


002010 


002012 


0C2014 


002016 


002020 


002022 


002024 


002026 


002030 


002032 


002034 


002036 


002040 


MACY11 a 02-JUL-85 16:19 PAGE 83-14 
APT PARAMETER BLOCK 


sDEFINITIONS FOR TRAP SUBROUTINE CALLS 
sPOINTERS TO SUBROUTINES CAN BE FOUND 
sIN THE TABLE IMMEDIATELY FOLLOWING THE DEFINITIONS 


02-JUL-85 16:1 


104400 
007206 


104401 
005376 


104402 
005422 


104403 
006242 


104404 
006416 


104405 
006436 


104406 
011142 


104407 
006636 


104410 
006676 


104411 
006730 


104412 
006734 


104413 
007134 


104414 
007166 


104415 
026772 


104416 
027166 


104417 
007154 





33 REREEEREEEEREEEEEEEEAEEREEEEEEEEREAAAEEEEEREAAEAEAEEEEERRARAAALA REALS 


. TRPTAB: 
ADVANCE=TRAP +0 
- ADVANCE 
-- END O MACRO 
SCOP1=TRAP+1 
-SCOP1 
; -- END 0 MACRO 
TYPE=TRAP+2 
- TYPE 
-- END 0 MACRO 
INSTR= TRAP +3 
- INSTR 
-- END 0 MACRO 
INSTER=TRAP+4 
- INSTER 
-- END 0 MACRO 
PARAM= TRAP +5 
-PARAM 
;_-- END 0 MACRO 
SETFLG=TRAP+6 
- SETFLG 
;_-- END O MACRO 
SAVOS=TRAP +7 
- SAVOS 
;_-- END 0 MACRO 
RESOS=TRAP +10 
-RESOS 
; -- END 0 MACRO 
CONVRT=TRAP+11 
- CONVRT 
; -- END O MACRO 
CNVRT=TRAP +12 
-CNVRT 
;_-- END 0 MACRO 


DEVICE .CLR=TRAP+13 
-DEVICE.CLR 


-- END O MACRO 
DELAY=TRAP +14 
-DELAY 
-- END 0 MACRO 
PARMD= TRAP +15 
-PAR 


MD 

-- END 0 MACRO 
PAWCH= TRAP+ 16 
-PAWCH 

;_-- END 0 MACRO 
DCLASM=TRAP+17 

-OCLASM 

; -- END 0 MACRO 














PPS OS ODED SS DA SHEE DEDDESCEOEHAESDSSSEEHEHESEDOHOOEEOCEEOS 


sCALL TO ADVANCE TO NEXT TESTC OR SCOPE THIS ONE) 


sCALL TO LOOP ON CURRENT DATA HANDLER 


sCALL TO TELETYPE OUTPUT ROUTINE 


sCALL TO ASCII STRING INPUT ROUTINE 


sCALL TO INPUT ERROR HANDLER 


sCALL TO NUMERICAL DATA INPUT ROUTINE 


sCALL TO SET FLAG ROUTINE 


SSseseseseeseessizsszzes 


sCALL TO REGISTER SAVE ROUTINE 


;CALL TO REGISTER RESTORE ROUTINE 


sCALL TO DATA OUTPUT ROUTINE 


sCALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 


sCALL TO ISSUE A DEVICE CLEAR 


sCALL TO DELAY FOR FAST CPU'S 


sCONVERT DECIMAL STRING TO OCTAL 


sSET FLAG ECHO OR CABLE 


sCLEAR DEVICE, SET MAINT. BIT IF I MODE 


Ro nn cre 


CZ0ZA-1I0 
CZDZAI.Pil 


(1) 
(1) 








MACY11 30AC(1052) 02-JUL-85 16:19 PAGE 83-15 
02-JUL-85 16:17 APT PARAMETER BLOCK 


3S RERRAEEEREEEAREEARAEERERAREARAREARARAERERERAAREAEERAAEAAAAAAAERARERES 





SEQ 35 





CZ0ZA-I0 MACY11 a 02-JUL-85 16:19 PAGE 83-16 
CZ0ZAI.Pil 02-JUL-85 16:1 APT PARAMETER BLOCK 
(1) 3DZ11 VECTOR AND REGISTER INDIRECT POINTERS 
tt sWORKING AREA 
(1) 002042 160040 DZCSR: 160040 ;R/W 
(1) 002044 160041 HDZCSR: 160041 ;R/W 
C1) 002046 160042 DZRBUF: 160042 ;READ ONLY 
(1) 002050 160043 HDZRBUF : 160043 ;READ ONLY 
(1) 002052 160042 DZLPR: 160042 ;WRITE ONLY 
(1) 002054 160043 HOZLPR: 160043 ;WRITE ONLY 
(1) 002056 160044 DZTCR: 160044 ;R/W 
(1) 002060 160045 HDZTCR: 160045 ;R/W 
C1) 002062 160046 DZMSR: 160046 ;READ ONLY 
(1) 002064 160047 HDZMSR: 160047 ;READ ONLY 
(1) 002066 160046 DZTOR: 160046 ;WRITE ONLY 
(1) 002070 160047 HDZTOR: 160047 ;WRITE ONLY 
(1) sDEFAULT DZ VECTORS 
(1) 002072 000300 DZRIV: 300 sREC INTR VECTOR 
(1) 002074 000302 DZRIS: 302 sREC INTR STATUS 
(1) 002076 000304 DZTIV: 304 sXMIT INTR VECTOR 
+ 002100 000306 OZTIS: 306 sXMIT INTR STATUS 
(1) 





SEQ 36 


CZ0ZA-I0 MACY11 i 02-JUL-85 16:19 PAGE 83-17 
CZO0ZAI.Pil 02-JUL-85 16:1 APT PARAMETER BLOCK 

(1) 

3 sTIME TABLE FOR RELATIVE TIMING TESTS 

3 Sletten ee ee ee ee ee | 

(1) 

(1) 002102 TMTBL: 

(1) 002102 000000 TSO: 0 

(1) 002104 000000 T75: 0 

(1) 002106 000000 T1110: © 

(1) 002110 000000 T1134: 0 

(1) 002112 000000 T150: 0 

(1) 002114 000000 1300: 0 

(1) 002116 000000 1600: 90 

(1) 002120 000000 T1200: 0 

(1) 002122 000000 T1800: 0 

(1) 002124 000000 T2000: 0 

(1) 002126 000000 T2400: 0 

€1) 002130 000000 T3600: 0 

(1) 002132 000000 T4800: 0 

(1) 002134 000000 T7200: 0 

(1) 002136 000000 T9600: 0 

(1) 002140 000000 TEIGHT :0 

(1) 002142 000000 TSEVEN: 0 

(1) 002144 000000 TSIX: 0 

(1) 0C2146 000000 TFIVE: 0 











SEQ 37 


CZ0ZA-I0 MACY11 30A(1052) 02-JUL-85 16:19 PAGE 83-18 
CZDZAI.P11 02-JUL-85 16:17 


RAR AAAA 
~ 
w 


1 Oe he pe pe pe pe pe pe pe 


002150 000005 
002152 012706 
002156 106427 
002162 012737 
002170 012737 
002176 012737 
002204 012737 
002212 012737 
002220 012737 
002226 012737 
002234 012737 
002242 012737 
113737 
002256 005037 
0C2262 105037 
002266 012737 
002274 012737 
002302 005037 
002306 005037 
002312 005037 
002316 012737 


Ses eS we eye 


Se ee ee ee ee ee el ee ee fe en ee 
oo ee ee ee ee pe pe pe pe pe pe pe pe pe 
iii de dd db hb hhh 
is) 
a 


mee 


002324 013746 
002330 013746 
002334 012737 
002342 022777 
002350 001402 
002352 000407 
002354 022626 
002356 012737 
002364 012737 
002372 012637 
002376 012637 
105737 
002406 001010 
002410 023727 
002416 001402 
002420 104402 
002424 105337 
002430 105737 
002434 100006 
002436 004737 


002442 000240 
002444 000240 


nl onl anlelealealelealelelelelelealealealalealalealaleatlalealeateteata! 


Oe ee ee ee ee fe ee ee pe be ee pe He ee he pe fee pe pe pe 
II III YY Yee 
ft 
& 

Lt) 


—— 


002354 
177777 


000176 
000174 
000004 
000006 
001415 


000042 
001000 
001415 
001255 


012102 





PROGRAM INITIALIZATION AND START UP. 


sPROGRAM INITIALIZATION 
sLOCK OUT INTERRUPTS 


;SET UP 
3SET UP 


PROCESSOR STACK 
POWER FAIL VECTOR 


sCLEAR PROGRAM CONTROL FLAGS AND COUNTS 
sTYPE TITLE MESSAGE 


- START: 
RESET sCLEAR THE WORLD. START NEW ENVIRONMENT 
MOV @STACK , SP sSET UP STACK 
MTPS @PR7 sLOCK OUT INTERRUPTS 
000024 MOV @$PWRON, 8024 sSET UP POWER FAIL VECTOR 
000020 MOV @$SCOPE , @@IOTVEC sSET VECTOR FOR SCOPE ROUTINE 
000022 MOV #340 ,AGIOTVEC+2 sLEVEL 7 
000030 MOV @$ERROR, BGEMTVEC sSET VECTOR FOR ERROR ROUTINE 
000032 MOV #340 ,AGEMTVEC+2 sLEVEL 7 
000034 MOV @. TRPSR, @@TRAPVEC sSET VECTOR FOR TRAP CALLS 
000036 MOV $340 , @@TRAPVEC+2 sLEVEL 7 
000024 MOV @$PWRON, B@PWRVEC sSET VECTOR FOR POWER FAIL ROUTINE 
000026 MOV 340 , BOPWRVEC+2 sLEVEL 7 
001411 MOVB DZNUM, SAVNUM sSAVE NUMBER OF DEVICES IN SYSTEM. 
CLR $PASS s;CLEAR PASS COUNT 
CLRB SERFLG sCLEAR ERROR FLAG 
001412 MOV @DZ.MAP,ACTIVE ;GET MAP POINTER. 
001406 MOV #1 ,RUN sPOINT POINTER TO FIRST DEVICE. 
CLR S$ERTTL sCLEAR ERROR COUNT 
CLR $ERRPC sCLEAR LAST ERROR POINTER 
CLR $TSTNM sSET UP FOR TEST 1 
001126 MOV @.START,$LPADR ;SET UP FOR POWER FAIL BEFORE 
sTESTING STARTS 
sSET UP FOR SMALL 11 SWITCH REGISTER COMPATIBILITY 
MOV 6 -(SP) sSAVE BUS ERROR PS 
MOV 4,-CSP) sSAVE BUS ERROR PC 
000004 MOV 203.4 sSET UP TO TRAP TO THIS ROUTINE 
176610 CMP #-1,8SWR sCAN 177570 BE REFERENCED? 
BEQ 22$ sIF SO AND IT IS -i, TREAT LIKE SWITCHLESS 
BR 21$ sIF YES,SKIP AROUND THE SETUP 
20$: POP2SP sREMOVE THE TRAP FROM THE STACK 
001160 22$: MOV @SWREG , SWR sIF NO,TRAP COMES HERE.POINT TO SOFTWARE SWR 
001162 MOV @DISPREG,DISPLAY ;POINT TO SOFTWARE DISPLAY REGISTER 
21$: MOV (SP)+,4 sRESTORE THE BUS ERROR VECTOR 
MOV (SP)+,6 
TSTB INIFLG sTITLE ALREADY PRINTED? 
BNE 29$ sBRANCH IF YES 
005056 CMP 9042 ,@$ENDAD sRUNNING UNDER ACT? 
BEQ 31% sIF YES DONT PRINT TITLE 
TYPE eMTITLE sPRINT THE DIAGNOSTIC‘'S TITLE 
31$: DECB INIFLG sSET THE ONCE ONLY FLAG 
29%: TSTB sENVM sDETERMINE WHETHER APT SIZING SHOULD BE DONE 
BPL 30$ sIF NOT, GO CHECK FOR AUTO-SIZING 
JSR PC ,SETAPT sOTHERWISE, GO DO APT SIZING FROM ETABLE 
sREPLACE “CLRB HORFLG” WITH NOP’S 
NOP 
NOP 
; CLRB HDRFLG sMAKE SURE STATUS TABLE IS PRINTED 





CZ0ZA-10 
CZ0ZAI.Pi1 

(1) 002446 
(1) 002452 
(1) 002460 
(1) 002462 
(1) 002470 
(1) 002472 
(1) 002476 
(1) 002500 
(1) 002504 
(1) 002510 
(1) 002514 
(1) 002516 
(1) 002522 
(1) 002524 
(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 002530 
(2) 

(2) 002530 
(2) 0C2532 
(2) 002534 
(2) 002536 
(2) 002540 
(2) 002542 
(2) 002544 
(2) 002545 


eRe 


AAARAAAA AAA AAA AAA ARR AAA AAA 
ST ad od od a rod 
II BB BV BB YUU UU 
~ 
x 


a. 








SEQ 38 


MACY11 30A(1052) 02-JUL-85 16:19 PAGE 83-19 
02-JUL-85 16:17 


001374 
105337 


004420 —- 
000001 176500 


. 000377 001415 


176462 
003244 
001500 
001416 
002000 


001415 


001500 001310 


001502 001304 





PROGRAM INITIALIZATION AND START UP. 


JMP 16$ sGO PRINT D0Z STATUS TABLE 
30$: BIT @SWOO0, BSWR sRESELECT ? 
BNE 32$ sIF YES, GO SET UP THE INFORMATION 


CMPB OO s0N 1ST START; MUST ANSWER QUESTION 
.¢ 


BNE sIF NOT ANSWERING QUESTIONS 
TSTB @SWR sARE U AUTO SIZING? 
BMI 32$ sNO AUTO SIZE! NO SWOO=1 ON 1ST START! 
JMP 73% sIF NO, SKIP THE INTERROGATION 
32$: MOV #0Z.MAP,RO sPOINT TO THE BEGINNING OF THE MAP TABLE 
CLRB HORFLG sMAKE SURE A MAP GETS PRINTED 
65$: CLR CRO)+ sCLEAR A TABLE LOCATION 
CMP RO, @0Z.END sHAVE THE TABLE BOUNDARIES BEEN EXCEEDED? 
BNE 65$ sIF NOT ,CLEAR THE NEXT LOCATION IN THE TABLE 
DECB INIFLG sINSURE NO AUTO SIZING IF QUESTIONS ANSWERED! 


sTHE FOLLOWING ARE PARAMETERS USED TO FILL IN THE MAP 
;TABLE AND SET UP THE DIAGNOSTIC. 


;GET THE BASE ADDRESS OF THE 0211'S 


33%: 
3 -$GETPAR-ssssecesaeuseaecassssssesessesses 

INSTR s;CALL THE STRING INPUT ROUTINE 
66$ sPOINTER TO MESSAGE TO BE PRINTED 
PARAM sCALL THE OCTAL TO ASCII CONVERT ROUTINE 
160000 sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
163770 sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
DZCRO sPOINTER TO MAP LOCATION TO BE FILLED 
-BYTE 7 sMASK OF INVALIO BITS FOR THIS PARAMETER 
BYTE 1 sNUMBER OF PARAMETERS TO STORE 


;-- END 0 MACRO ssse2ssesesenn22222 
MOV DZCRO, $BASE sCOPY BASE ADDRESS TO ETABLE 


;GET THE BASE VECTOR ADDRESS 


34$: 
: -$GETPAR -sesesanussssessasssssssasesesesss 
INSTR sCALL THE STRING INPUT ROUTINE 
67$ sPOINTER TO MESSAGE TO BE PRINTED 
PARAM sCALL THE OCTAL TO ASCII CONVERT ROUTINE 
300 sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
776 sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
DZvVCO sPOINTER TO MAP LOCATION TO BE FILLED 
BYTE @ sMASK OF INVALID BITS FOR THIS PARAMETER 


OYTE 4 sNUMBER OF PARAMETERS TO STORE 
3: -- END O MACRO =2e2eeceseneneazeee2 
MOV OZVCO, sVECT1 sCOPY VECTOR TO ETABLE 


sGET THE BUS REQUEST LEVEL 


3 -$GETPAR-sseseeseeeessesssszeseasssssssszs 


INSTR sCALL_ THE STRING INPUT ROUTINE 

68$ sPOINTER TO MESSAGE TO BE PRINTED 

PARAM sCALL THE OCTAL TO ASCII CONVERT ROUTINE 

4 sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
7 sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 





a a 


CZ0ZA-10 
CZOZAI .Pii 


02-JUL-85 16:17 
001504 
000 
001 


113737 
106337 


alata! 

wr 

wee 
s 
o 
- 
uw 


001504 001305 
001305 
001305 
001305 
001305 
001305 


004260 
001220 
176300 


176274 
177600 
000023 
176254 
176250 


177600 
000021 


000021 


000015 
176212 
100000 
000102 


100000 001504 


001504 


BBQ Q_Q_Q_BQ_OQ_OQOQOQX_OQOQQQOQ OE BOQLOQOQOEOQAOQLOQOOQEOQEOXOQLEOQOQOQXOQOQOQLOQOOQLOQLOXQOOXUEXUEXUOPEUOEAER ENON OR ON ONO ON 


BD PD & PD PD 19:19 10 10 be ee be pe be be be pe pe pe pe 
i i i i ei et i i et i i dd i i te i th dh ed hh ha ha he a ah a ahh 
Lv) 
¢ 


003014 104403 


on 


MACY11 30A(1052) 02-JUL-85 16:19 PAGE 83-20 
PROGRAM INITIALIZATION AND START UP. 






sPOINTER TO MAP LOCATION TO BE FILLED 
sMASK OF INVALID BITS FOR THIS PARAMETER 
sNUMBER OF PARAMETERS TO STORE 


sGET BUS REQUEST LEVEL INTO ETABLE 
sALIGN THE BITS PROPERLY 
sALIGN THE BITS PROPERLY 
sALIGN THE BITS PROPERLY 
sALIGN THE BITS PROPERLY 
sALIGN THE BITS PROPERLY 


sPRINT EIA MESSAGE 

sUSE $TMP1 

sIS KEYBOARD DONE? 

sIF NOT, WAIT FOR IT 

sIF YES, PUT CHARACETR ON STACK 


sSTRIP DOWN CHARACTER 3 ;0SH-BHL 
:IS IT A XOFF? 3; ;0SH-BHL 
368R IF NOT 33;0SH 
sWAIT FOR A CHARACTER 3; ;DSH-BHL 
3 ;0SH-BHL 
3GET CHARACTER 3 ;O0SH-BHL 
sSTRIP DOWN CHARACTER 3 sO0SH-BHL 
sWAIT FOR A XON? ; s0SH-BHL 
3GET NEXT CHAR IF NOT 3 ;D0SH-BHL 
sPOP STACK 330SH 
sWAIT FOR A CHAR 330SH 
3IS IT A RANDOM XON 3 s0SH-BHL 
3BR IF NO 3 :0SH-BHL 
3;ELSE, POP STACK 3 30SH-BHL 
3GO GET NEXT CHAR : s0SH-BHL 


;CLEAR EIA FLAG 


sIF NOT, GO BACK FOR INPUT 
sIF SO, SET FLAG 
sGET MORE INPUT 


OZLVO 
-BYTE 0O 
-BYTE 1 

3 -- END 0 MACRO #s2seeeeesses228228 
MOVB OZLVO, $VECT1+1 
ASLB $VECTi+l 
ASLB $VECTiel 
ASLB $VECT1i+1 
ASLB $VECTi+l 
ASLB $VECTi+l 
sFIND OUT IF MODULE IS EIA OR 20 MA. 
TYPE 743 
CLR $TMP1 

80$ TSTB asTKS 
BPL 80$ 
MOV @$TKB, -C SP) 
BIC #177600, (SP) 
CMPB @$XOFF ,CSP) 
BNE 83$ 

101%: TSTB @sTKS 
BPL 101$ 
MOVB @$TKB, (SP) 
BIC #177600, (SP) 
CMPB @$X0N, (SP) 
BNE 101$ 
TST (SP)+ 
BR 80$ 

83: #@$XON, (SP) 
BNE 102$ 
TST (SP)+ 
BR 80$ 

1023: CMPB #15,(SP)-+ 
BEQ 81$ 
MOV -(SP),@$TPB 
BIC #68IT15,DZLVO 
CMPB #102,(SP)+ 
BNE 80$ 
BIS #61T15,0ZLVO 
BR 803 

818: 


sGET THE MODE OF OPERATION (E,I,S) 


3 -$GETFLG-ssesssseesssssessssssasesesss 
sCALL THE STRING INPUT ROUTINE 

sPOINTER TO THE MESSAGE TO BE PRINTED 
sCALL THE MAINTENANCE FLAG SETUP ROUTINE 
sTHIS IS THE FLAG BEING SETUP 


3 -- END O MACRO seeeeseeecessassess 
sGET THE NUMBER OF 0Z11'S RUNNING 


INSTR 





3 -$GETPAR-ssseseassssssssesssussssssssssess 


sCALL THE STRING INPUT ROUTINE 
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012737 
012737 


012737 
032777 
001402 
004737 
012737 
113737 
113737 
005337 
001404 
000261 
006137 
000771 
013737 
013737 
012700 
012701 
012702 
000241 
006037 
006237 
103404 
012711 
000137 
012011 
062721 
012011 
062721 
012021 
012021 
016012 
042712 
051022 
012021 
012021 
000751 
032777 
001002 
000137 
004737 
105337 
000137 
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> * b * b* he be be he he he pe he pe pe pe pe He pe pe pe pe pe fe pe pe 
SII BB BB VIF 
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000377 
017070 


000001 
000010 


003274 
000001 
001220 
001220 
001220 


001312 


001312 
001312 
001500 
001514 
001320 


001222 
001222 


177777 
004374 


000010 
000010 


177774 
077777 


000010 


004374 
003274 
001415 
004420 





001506 
001510 


007204 
176076 


001312 
001410 
001411 


001222 
001404 


175706 


-BYTE 1 
3 -- END O MACRO seesneeeenceces 


40$: 


62$: 


61$: 


64$: 


41$: 


738: 


42$: 


71% 
PARAM 
1 

16. 
$TMP1 
-BYTE 


MOV 
MOV 


sGET THE ACTIVE LINES PARAMETER 
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0 


377 ,LINEO 
#17070 ,PARO 


#1,0LYCNT 
@SWO3, @SWR 


$TMP1 
61$ 


$DEVM, STMP2 
$DEVM,DZACTV 
#0ZCRO,RO 
#0ZCR1,R1 
#$DDWO ,R2 


CRO)+,(R1) 
#10,(R1)-+ 
(RO)+,(R1) 
#10,(R1)+ 
C(RO)+,(R1)+ 
(RO)+,(R1)> 
-4(RO),(R2) 
#77777 ,CR2) 
CRO), CR2)+ 
CRO)+,(R1)+ 
CRO)+,CR1)+ 
64$ 


#SWO3,@SWR 
42$ 


63$ 
PC .23$ 
INIFLG 
16$ 


sPOINTER TO MESSAGE TO BE PRINTED 

sCALL_THE OCTAL TO ASCII CONVERT ROUTINE 
sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
sPOINTER TO MAP LOCATION TO BE FILLED 

sMASK OF INVALID BITS FOR THIS PARAMETER 
sNUMBER OF PARAMETERS TO STORE 


sSET UP DEFAULT LINES 

sSET UP DEFAULT LPR PARAMETER 

sRECEIVER ON; 9600 BAUD; 2STOP BITS; 8 BIT/CHAR 
sINITIALIZE DELAY COUNT 

3D0 YOU WANT PARAMETERS? 

sIF NO, SKIP THE PARAMETER CALL 

sGET PARAMETERS 

sINITIALIZE ACTIVE DEVICE SELECTION PARAMETER 
sCOPY THE NUMBER OF DEVICES 

sCOPY A BACKUP NUMBER 

:$TMP1 CONTAINS THE COUNT OF UNINITIALIZED 

; SELECTED DEVICES 

sSET A BIT FLAG TO INDICATE AN ACTIVE DEVICE 
sPOINT TO THE NEXT DEVICE 

:GO DO THIS PROCEDURE AGAIN 

3@ OF TIMES 

sCOPY THE ACTIVE DEVICE PARAMETER 

sSET A POINTER TO THE SPECIFIED INFORMATION 
sPOINT Ri TO THE REST OF THE MAP TABLE 
sPOINT TO ETABLE’S DEVICE DESCRIPTOR WORDS 
sINITIALIZE THE “C” BIT FOR A ROTATION 

sSKIP MAPPING SETUP FOR DEVICE 0- IT’S DONE 
sISOLATE A SELECTION FLAG IN THE “C” BIT 

sIS THIS DEVICE SELECTED? IF YES, GO Lt’ TOBLE 
sTERMINATE THE LIST 

3GO TO THE NEXT BLOCK 

sADDRESS 

sPOINT TO THE NEXT DZ11 ADORESS VALUE 
;VECTOR 

sPOINT TO THE NEXT VECTOR VALUE 

sLEVEL 

;LINES 

;GET THE ETA FLAG FROM THE PRIORITY WORD 
sISOLATE THAT FLAG 

sADD PARAMETERS TO DEVICE DESCRIPTOR WORD 
sPARAMETERS 

sMAINTENANCE MODE 


sASK PARAMETERS ? 
sIF NO, GO DO AUTO SIZING 
3GO SET UP FOR AUTO SIZING 
3GO ASK PARAMETERS 
sINSURE NO AUTO SIZE IF QUESTIONS ANSWERED 
GO TO THE NEXT BLOCK 








CZO0ZA-I0 
CZOZAI.P 11 

(1) 003274 
C2) 

(2) 003274 
(2) 003276 
(2) 003300 
(2) 003302 
(2) 003304 
(2) 003306 
(2) 003310 
C2) 00331: 
C2) 

(1) 003312 
(1) 

(1) 

(i) 

(3) 

(2) 003316 
(1) 003322 
(1) 003324 
(1) 003330 
(1) 003332 
(1) 003334 
(1) 003336 
(1) 0C3340 
Ci) 003342 
(1) 003346 
(1) 003352 
(1) 003354 
(1) 003356 
(1) 003360 
(2) 003362 
(1) 003364 
(1) 

(1) 

(1) 

(1) 003366 
(2) 

(2) 003366 
(2) 003370 
(2) 003372 
(2) 003374 
(2) 003376 
(2) 003400 
(2) 903402 
(2) 003403 
(2) 

(1) 003404 
(1) 003410 
(1) 003414 
(1) 003416 
(1) 003420 
(1) 003426 
(1) 003430 
(1) 003434 
(1) 003440 
(1) 003444 
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012702 
012703 
011304 
006304 
016437 
000313 
052713 
011262 
011363 
062702 





001416 


001512 
001506 


001230 
011065 


001506 
001510 


032444 007204 


010070 
000014 
000014 
000014 


.B 1 
3 -- END 0 MACRO s222222e2esanun2228 


s;THIS SEGMENT CHECKS TO MAKE SURE THE LINE PARAMETER JUST ENTERED 
3IS LEGITIMATE IN STAGGERED MODE OPERATION IF THAT MODE WAS SELECTED 


24s: 


27s: 


258: 


26%: 


3; -- END 0 ve Sesseeeesseseszsaees 


28%: 
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238: 


CLRB 


;GET THE LINE PARAMETER REGISTER ARGUMENT 

























3 -$GETPAR-ssssssesesessessasssassessssass52 
sCALL THE STRING INPUT ROUTINE 
sPOINTER TO MESSAGE TO BE PRINTED 
sCALL THE OCTAL TO ASCII CONVERT ROUTINE 
sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
sPOINTER TO MAP LOCATION TO BE FILLED 

0 sMASK OF INVALID BITS FOR THIS PARAMETER 
sNUMBER OF PARAMETERS TO STORE 


HORFLG sMAKE SURE THE CHANGES ARE PRINTED 


MANTO sIS STAGGERED THE MODE a OPERATION? 
26% sIF NOT, SKIP THIS SEGMENT 
LINEO,R3 sGET A SCRATCH COPY OF THE ACTIVE LINES 
R3 sGET A LINE SELECTION BITCEVEN NUMBER LINE) 
25s sIF IT IS SELECTED, CHECK TO SEE IF THE NEXT IS TOO 
26$ sIF ALL HAVE BEEN CHECKED, CONTINUE PROCESSING 
R3 sIF IT IS 0,CHECK TO SEE IF THE NEXT IS TOO 
243 sIF THIS ONE'S 0 TOO, GO CHECK THE NEXT PAIR 
» $QUES sTHIS IS AN INCORRECT PARAMETER 
-MBADLN ;LET THE USER KNOW ABOUT IT 
233 3GO GET THE CORRECT PARAMETER 
27$ ;IF ANOTHER FLAG ISN'T SET, THERE'S AN ERROR 
R3 ;GET THE NEXT FLAG 
27s sIF IT ISN'T SET, THERE’S AN ERROR 
sINITIALIZE THE “C” BIT FOR TESTING OF THE NEXT PAIR 
243 3GO TEST THE NEXT PAIR OF FLAGS 


: -$GETPAR-s22ss2sezeeezeseezaeeez 222222222 
;CALL THE STRING INPUT ROUTINE 
sPOINTER TO MESSAGE TO BE PRINTED 
sCALL THE OCTAL TO ASCII CONVERT ROUTINE 
sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
sPOINTER TO MAP LOCATION TO BE FILLED 

0 sMASK OF INVALID BITS FOR THIS PARAMETER 

1 sNUMBER OF PARAMETERS TO STORE 


#LINEO ,R2 sPOINT TO THE LINE SELECTION PARAMETER 
@PARO, R3 sPOINT TO THE CHOSEN PARAMETERS 

(R3),R4 ;USE BAUD RATE AS AN INDEX IN DELAY TABLE 
R4 sALIGN INDEX ON WORD BOUNDARY 
DLYTBL(R4),OLYCNT ;SET THE DELAY COUNT FOR THIS BAUD ~ATE 
(R3) sPLACE IN HIGH BYTE 

#10070 ,(R3) sPLACE EXTRA PARAMETERS INTO LOC 
(R2),14(R2) ;LOAD THE LINES 

(R3),14(R2) s;LOAD THE PARAMETERS 

#14,R2 sPOINT TO THE NEXT SET 








- 
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000014 ADD #14,R3 .. OF BOTH PARAMETERS 



















-_ 
~ 
— 
fo] 
Oo 
$ 
3 
a 
Ls) 
~ 
So 
w 


(1) 003454 020327 001774 CMP R3,@PAR17 SHAVE THE TABLE BOUNDARIES BEEN EXCEEDED? 
(1) 003460 001365 BNE 28% sIF NOT, GO LOAD SOME MORE PARAMETERS 
(1) 003462 000207 RTS PC sRETURN TO CALLING BLOCK 

(1) 003464 030600 052123 041440 663: -ASCIZ <200>/1ST CSR ADDRESS (160000:163700): / 

(1) 003530 030600 052123 053040 673: -ASCIZ <200>/1ST VECTOR ADDRESS (300:770): / 

(1) 003571 200 051102 046040 683: -ASCIZ <200>/BR LEVEL (4:6): / 

(1) 003614 046200 047111 051505 69%: -ASCIZ <200>/LINES ACTIVE BY BIT <IN OCTAL>(001:377): / 

(1) 003670 042200 043105 052501 703: -ASCIZ <200>/DEFAULT BAUD RATE <IN OCTAL>(00:16): / 

(1) 003740 021600 047440 020106 713: -ASCIZ <200>/@ OF DZ11‘S <IN OCTAL> (1:20): / 

(1) 004002 046600 044501 052116 723: «ASCII <200>/MAINTENANCE MODE/ 

C1) 004023 200 055440 054105 «ASCII <200>/ [EXTERNAL <H325>-EIA ONLY CE))/ 

(1) 004071 200 055440 047111 -ASCII <200>/ [INTERNAL <DZCSRO3=1> (I)]/ 

(1) 004137 200 055440 052123 «ASCII <200>/ [STAGGERED <H3271>-EIA ONLY (S)): / 

(1) 004207 200 055440 052123 -ASCIZ <200>/ [STAGGERED <H3190>-20MA ONLY (S)): / 

Ci) 004260 052200 050131 020105 743: -ASCIZ <200>/TYPE “A” FOR EIA MODULE OR “B” FOR 20 MA (A:B): / 
(i) 004342 042600 052116 051105 753: -ASCIZ <200>/ENTER DELAY PARAMETER: / 

(i) 004374 -EVEN 

(1) 004374 63$: 

(1) 004374 122737 000377 001415 CMPB #377, INIFLG sONLY DO AUTO SIZE ON 1ST START 

(1) 004402 001006 BNE 16$ H 

(1) 004404 032777 000200 174546 BIT #61T7,@SWR ;BIT7=17?? 

(1) 004412 001002 BNE 16$ 3BR IF NO AUTO SIZE 

(1) 0C4414 004737 012254 JSR PC ,AUTO. SIZE :GO0 DO THE AUTO SIZE 

(1) 004420 105737 001416 16$: TSTB HDRFLG sHAS THE TABLE BEEN TYPED YET? 

(1) 004424 001021 BNE i$ sIF SO, DON'T TYPE IT AGAIN 

(1) 004426 105337 001416 DECB HORFLG sINDICATE THAT THE TABLE WILL BE TYPED 
(1) 004432 104402 011040 TYPE » XHEAD ;TYPE MAP HEADER 

(1) 004436 012700 001500 MOV #DZ.MAP,RO ;SET POINTER 

(1) 004442 010037 001220 S$: MOV RO, $TMPL sPOINT TO THE MAP LOCATION 

(1) 004446 012037 001222 MOV (RO)+, $TMP2 ;SET DATA 

(1) 004452 022737 177777 001222 CMP #-1, $TMP2 sEND OF LIST? 

(1) 004460 001403 BEQ 1$ ;BR IF YES 

(1) 004462 104411 17$: CONVRT sCALL THE OCTAL TO ASCII CONVERSION ROUTINE 
(1) 004464 011130 XSTATQ sCONVERT THE DATA AT THIS ADDRESS 

(1) 004466 000765 BR 5$ :GO PRINT THE NEXT PARAMETER 

(1) 004470 005737 000042 1$: TST a+42 3IS PROGRAM RUNNING UNDER MONITOR 

(1) 004474 001026 BNE 3$ YES 

(1) 004476 032777 000100 174454 BIT #SW06, ASWR sDESELECT SPECIFIC DEVICES?? 

(1) 004504 001422 BEQ 3$ :BR IF NO. 

(1) 004506 104402 010761 TYPE »MNEW ;TYPE THE MESSAGE. 

(1) 004512 005000 CLR RO ;ZERO DATA DISPLAY 

(1) 004514 000000 HALT sWAIT FOR USER TO TELL WHAT DEVICES TO RUN 
(1) 004516 027737 174436 001312 CMP OSWR, $DEVM sIS THE NUMBER VALID? 

(1) 004524 101404 BLOS 2$ ;BR IF NUMBER IS OK. 

(1) 004526 104402 010633 TYPE »MERR3 ;TELL USER OF INVALID NUMBER. 

(1) 004532 000000 9$: HALT ;STOP EVERY THING. 

(1) 004534 000776 BR 9$ sRESTART THE PROGRAM AGAIN. 

(1) 004536 017737 174416 001404 23: MOV OSWR .DZACTV ;GET NEW DEVICE PATTERN 

(1) 004544 013700 001404 MOV DZACTV,RO sSHOW THE USER WHAT HE SELECTED. 

(1) 004550 000000 HALT sCONTINUE DYNAMIC SWITCHES. 

(1) 004552 032777 000020 174400 3s: BIT #SWO04, OSWR sCHECK TO SEE IF DELAY COUNT CHANGES 
(1) 004560 001407 BEQ 18$ ;IF NOT, GO CLEAR VECTOR AREA 

(2) 3; -$GETPAR-=2s=s2sss2eees2e222e2222sseee5222- 
(2) 004562 104403 INSTR sCALL THE STRING INPUT ROUTINE 

(2) 004564 004342 75$ sPOINTER TO MESSAGE TO BE PRINTED 
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MACY11 ee 02-JUL-85 16:19 PAGE 83-24 


02-JUL-85 16:1 


104405 


000300 
000302 


001000 


001120 
000340 
000042 


000004 


010657 
000240 


005372 
011532 
010550 
174214 














PROGRAM INITIALIZATION AND START UP. 


PARAM sCALL THE OCTAL TO ASCII CONVERT ROUTINE 
1 sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
177777 sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
DLYCNT sPOINTER TO MAP LOCATION TO BE FILLED 
-BYTE 0 sMASK OF INVALID BITS FOR THIS PARAMETER 
MYTE 1f sNUMBER OF PARAMETERS TO STORE 
3 -- END 0 MACRO 2222222sse22se22222 
18$ MOV #300 ,RO sPREPARE TO CLEAR THE FLOATING 
MOV 9302,R1 sVECTOR AREA. 300-776 
4$: MOV R1,CRO)+ sSTART PUTTING “PC+2 - HALT” 
CLR C(R1)+ sIN VECTOR AREA. 
CMP C(RO)+,CR1)+ ;POP POINTERS 
CMP #1000,RO sALL DONE?? 
BNE 4$ ;BR IF NO. 


sTEST START AND RESTART 


-BEGIN: MOV #STACK ,SP sSET UP STACK 
MTPS @PR7 sLOCK OUT INTERRUPTS 
TST 942 sIS PROGRAM UNDER MONITOR CONTROL 
BNE es ;BR IF YES 
174310 BIT #BIT2,9SWR sCHECK FOR LOCK ON TEST 
BEQ 1$ sBR IF NO LOCK DESIRED. 
TYPE »MLOCK sTYPE LOCK SELECTED. 
005140 MOV NOP, TTST sADJUST SCOPE ROUTINE. 
BR 2$ sCONTINUE ALONG. 
005140 1$: MOV BRW, TTST sPREPARE NORMAL SCOPE ROUTINE 
001126 2s: MOV #CYCLE, $LPADR ;START AT “CYCLE” FIND WHICH DEVICE TO TEST 
TYPE »MR TYPE “RUNNING” 
JMP @$LPADR ;START TESTING 


; -- END 0 MACRO <2=222ss22s2222222- 


; =<PRGEND- enecccecaucesssssseeescccassss 


“«- 











oo 


SEQ 44 
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(2) sEND OF PASS 
(2) sTYPE NAME OF TEST 
(2) sUPDATE PASS COUNT 
(2) sCHECK FOR EXIT TO ACT-11 
(2) sRESTART TEST 
$44 -SBTTL END OF PASS ROUTINE 
(4) Fo SSSAAREAEKEREAAEREKAEAARARAAASRARAEEAAAREEAAAARAAKRALARAEREAARERALESE 
(3) ;*#INCREMENT THE PASS NUMBER ($PASS) 
(3) 3*IF THERES A MONITOR GO TO IT 
HH 3#IF THERE ISN'T JUMP TO CYCLE 
(3) 004712 SEOP: = 
(5) 3 -PASEND-=22222s2s222e2eseesseee2see2222222 
(5) 004712 000004 SCOPE 
(5) 004714 005037 001136 CLR SERRPC ;CLEAR LAST ERROR PC 
(5) 004720 105037 001123 CLRB SERFLG ;CLEAR ERROR FLAG 
(5) 004724 104402 010525 TYPE »MEPASS ;TYPE END PASS 
(5) 004730 104402 010706 TYPE »MCSRX ;TYPE CSR 
(5) 004734 104412 005072 CNVRT »XCSR ;SHOW IT 
(5) 004740 104402 010714 TYPE »MVECX ;TYPE VECTOR 
(5) 004744 104412 005100 CNVRT »XVEC :SHOW IT 
(5) 004750 005237 001242 INC $PASS sRAISE PASS COUNT 
(5) 0C4754 104402 010722 TYPE »MPASSX sTYPE PASSES 
(5) 004760 104412 005106 CNVRT »XPASS ;SHOW IT 
(5) 004764 005337 001242 DEC $PASS sRESTORE PASS COUNT 
(5) 004770 104402 010733 TYPE »MERRX ;TYPE ERRORS 
€S) 004774 104412 005114 CNVRT »XERR ;SHOW IT 
(5) 005000 105337 001411 DECB SAVNUM sARE ALL DEVICES TESTED? 
€5) 005004 001030 BNE $DOAGN ;BR IF NO. 
(5) 005006 113737 001410 001411 MOVB DZNUM, SAVNUM sRESTORE THE COUNT 
(3) 005014 005037 001226 CLR $TIMES ;3;ZERO THE NUMBER OF ITERATIONS. 
(3) 005020 005237 001242 INC $PASS ;;INCREMENT THE PASS NUMBER 
(3) 005024 042737 100000 001242 BIC #100000, $PASS 3;DON‘'T ALLOW A NEG. NUMBER 
(3) 005032 005327 DEC (PC)+ ;;LOOP? 
(3) 005034 000001 $EOPCT: .WORD 1 
(3) 005036 003013 BGT $DOAGN 33YES 
(3) 005040 012737 MOV (PC)+, @CPC)+ ;;RESTORE COUNTER 
(3) 005042 000001 $ENDCT: .WORD 1 
(3) 005044 005034 $EOPCT 
(3) 005046 013700 000042 $GET42: MOV a#42 ,RO ;+;GET MONITOR ADDRESS 
(3) 005052 001405 BEQ $DOAGN ;;BRANCH IF NO MONITOR 
(3) 905054 000005 RESET ;;CLEAR THE WORLD 
(3) 005056 004710 $ENDAD: JSR PC,CRO) +:;GO TO MONITOR 
(3) 005060 000240 NOP ;;SAVE ROOM 
(3) 005062 000240 NOP 3:FOR 
(3) 005064 000240 NOP +sACTi1 
(3) 005066 $DOAGN: 
(3) 005066 000137 JMP aC PC )+ 3; ;RETURN 
fae 005070 011532 $RTNAD: .WORD CYCLE 
(2) 005072 000001 XCSR: 1 
(2) 005074 006 002 BYTE 6,2 
(2) 005076 002042 DZCSR 
(2) 005100 000001 XVEC: 1 
(2) 005102 003 002 BYTE 4£,2 





— 
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(2) 005104 
(2) 005106 
(2) 005110 
(2) 005112 
(2) 005114 
(2) 005116 
(2) 005120 
(2) 
(2) 
(2) 
(2) 
(3) 
(3) 
(4) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 0¢5122 
(5) 
(S) 005122 
(5) 005126 
(5S) 005132 
(5S) 005136 
(5S) 005140 
(S) 005142 
(S) 005146 
(5S) 005150 
(S) 005156 
(5) 005160 
(5) 
(3) 005166 
(3) 005174 
(3) 
(3) 005176 
(3) 
(3) 005200 
(3) 005204 
(3) 005212 
(3) 005216 
(3) 005222 
(3) 005224 
(3) 005226 
(3) 005232 
(3) 005234 
(3) 005234 
(3) 005240 
(3) 005242 
(3) 005246 
(3) 005252 
(3) 005260 








SEQ 45 
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004737 
005037 
022716 
001417 
000412 
105777 
100073 
127727 
001467 
017766 


032777 
001060 


000416 
013746 


105737 
001404 
105037 
005037 
032777 
001011 


002 


002 


007642 
001136 
013040 
174016 
174012 
174002 
040000 


000004 
005224 
177060 
000004 


000004 


001123 


001123 
001226 
004000 


000021 
177776 
173764 


000004 


173700 


END OF PASS ROUTINE 


DZRIV 
XPASS: 1 
-BYTE 6,2 
$PASS 
XERR: 1 
BYTE 6,2 
SERTTL 


s;SCOPE LOOP AND ITERATION HANDLER 


-SBTTL SCOPE HANDLER ROUTINE ’ 


jf REREEREREAEAAE ARERR AE EREAAREARARAE ERE EAEAAEEE RARE RE EERE EE EE ERE 
s#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 

s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


3*#SW14=1 LOOP ON TEST 
3*SW1i=1 INHIBIT ITERATIONS 
3*#CALL 
i* SCOPE ;;SCOPE=IOT 
$SCOPE: oe 
-SCOPE: JSR PC,SERV.G s;FIND OUT IF <tG> WAS HIT 
CLR $ERRPC ;CLEAR LAST ERROR PC. 
CMP #TST1+2, (SP) 3IS THIS THE SCOPE AT THE BEGINNING OF TST1? 
BEQ $XTSTR ;IF SO, DON’T LOOP ON IT 
TTST: BR 1$ ;GOTO 1$ CIF LOCK SWO2=1; THIS LOC =240) 
TSTB asTKS sKEYBOARD DONE? 
BPL SOVER ;BR IF NO. (LOCK: HIT KEY TO GOTO NEXT TEST) 
CMPB 8$TKB, #$XON ;IS CHAR A RANDOM XON ? 3;0SH 
BEQ $OVER ;BR IF YES ;;DSH 
MOV 8$TKB, -2(SP) 
3 -- END O MACRO =2222222s222222222= 
1$: BIT #B1IT14,8SWR — ON PRESENT TEST? 
BNE $OVER ;YES IF SwWi4=1 
seGGeGSTART OF CODE FOR THE XOR TESTERSGOOS 
$XTSTR: BR 6$ 3;IF RUNNING ON THE "XOR” TESTER CHANGE 
3;THIS INSTRUCTION TO A “NOP” (NOP=240) 
MOV @¢ERRVEC,-C(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV #53, 8¢ERRVEC 3;SET FOR TIMEOUT 
TST 84177060 33TIME OUT ON XOR? 
MOV (SP)+,@#ERRVEC ;;RESTORE THE ERROR VECTOR 
BR $SVLAD 3;GO TO THE NEXT TEST 
5$: CMP (SP)+,(SP)+ 3;CLEAR THE STACK AFTER A TIME OUT 
MOV (SP)+,@#ERRVEC ;;RESTORE THE ERROR VECTOR 
BR $OVER ;;LOOP ON THE PRESENT TEST 
6$: —— OF CODE FOR THE XOR TESTER###e% 
2s TSTB $ERFLG 3;HAS AN ERROR OCCURRED? 
BEQ 3$ ;;BR IF NO 
4$: CLRB SERFLG 3;ZERG THE ERROR F 
CLR $TIMES +;CLEAR THE NUMBER ITERATIONS TO MAKE 
3$; BIT #BIT11,9SWR ;;INHIBIT ITERATIONS? 
BNE i$ : 3;BR IF YES 





re 
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CZDZAI.Pil 02-JUL-85 16:17 SCOPE HANDLER ROUTINE 
(3) 005262 005737 001242 TST $PASS +3IF FIRST PASS OF PROGRAM 
(3) 005266 001406 BEQ i$ 3 INHIBIT ITERATIONS 
(3) 005270 005237 001124 INC $ICNT +; INCREMENT ITERATION COUNT 
(3) 005274 023737 001226 001124 CMP $TIMES, $ICNT +sCHECK THE NUMBER OF ITERATIONS MADE 
(3) 005302 002015 BGE SOVER +3BR IF MORE ITERATION REQUIRED 
(3) 005304 012737 000001 001124 13: MOV #1,$ICNT ;sREINITIALIZE THE ITERATION COUNTER 
(3) 005312 013737 005374 001226 MOV $MXCNT,$TIMES 3;SET NUMBER OF ITERATIONS TO DO 
(3) 005320 105237 001122 $SVLAD: INCB $TSTNM +;COUNT TEST NUMBERS 
(3) 005324 113737 001122 001240 MOVB $TSTNM, $TESTN 3;SET TEST NUMBER IN APT MAILBOX 
(3) 005332 011637 001126 MOV (SP),$LPADR +;SAVE SCOPE LOOP ADDRESS 
(3) 005336 013777 001122 173616 $OVER: MOV $TSTNM,@DISPLAY ;;DISPLAY TEST NUMBER 
iss 005344 013716 001126 MOV $LPADR (SP) on teee RETURN ADDRESS 
- -Seeesesesssssssseeeesesessseeezes 
(S) 005350 105037 001417 3$: CLRB MNTFLG sCLEAR THE MAINTENANCE BIT SETTER AFTER EACH TEST 
(5) 005354 005737 001370 TST MODE sHAS THE MODE BEEN CHANGED? 
(5) 005360 001003 BNE 4$ sIF NOT INTERNAL , GO DO A TEST 
(5) 005362 112737 000010 001417 MOVB @MAINT ,MNTFLG sIF INTERNAL MODE NOW, SET THE MAINTENANCE BIT 
(5) 005370 000002 4$: RTI 3GO DO THE TEST 
(5) 005372 000406 BRW: 406 
(5) ; -- END O MACRO <<s2s222s22e22ee2e2222 
34 005374 000005 $MXCNT: 5 3;MAX. NUMBER OF ITERATIONS - 
(1) CHECK FOR FREEZE ON CURRENT DATA 
(1) RF ieee age 
(1) 005376 032777 001000 173554 .SCOP1: BIT #SWO9, ASWR sIS SWO9=1(SET)? 
(1) 005404 001405 BEQ 1$ ;BR IF NOT SET. 
(1) 005406 005737 001362 TST LOCK :IS THER A TIGHT LOOP SPECIFIED? 
(1) 005412 001402 BEQ i$ ;IF NO, RETURN 
(1) 005414 013716 001362 MOV LOCK ,(SP) sIF YES, GOTO THE ADDRESS IN LOCK. 
4 005420 000002 1$: RTI ;GO BACK. 
(1) 005422 032777 010000 173530 .TYPE: BIT #SW12,aASWR sINHIBIT ALL PRINTOUT?? 
(1) 005430 001403 BEQ i$ sIF NOT, GO TYPE 
(1) 005432 062716 000002 ADD #2,(SP) sSKIP OVER MESSAGE POINTER 
(1) 005436 000002 RTI sRETURN TO WHERE PROCEDURE WAS INVOKED 
(1) 005440 1$: 
4 -SBTTL TYPE ROUTINE 
(3) Fi 5 EREEEERAAEAEEEAEEEEREAARARAEAEARAAAEAEEAAEEAAAEAEARKERARRAALEAL 
(2) s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
(2) s*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
(2) ;*NOQTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(2) ;*NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
+H ;*NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
2 3* 
(2) 3*CALL: 
(2) 3*1) USING A TRAP INSTRUCTION 
22 a TYPE »MESADR +sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
7* 
(2) 34 TYPE 
(2) :* MESADR 
(3) of 
(2) 005440 105737 001177 $TYPE: TSTB $TPFLG 33IS THERE A TERMINAL? 
(2) 005444 100002 BPL 1$ 3;BR IF YES 
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112716 
004737 
132737 
001372 
005726 
000724 


105777 
109022 
017746 
042716 
122716 
001012 


105777 


000002 
000001 


000100 


005510 
006002 


000040 


000002 
000011 
000200 


005770 


005652 
001176 


001174 
000001 


005652 
005770 


000040 
005652 
000007 


173306 
173302 


177600 
000023 


173262 


001254 
001255 


001255 


005770 


TYPE ROUTINE 


1$: MOV 


61$: . WORD 
62$: 


2s: MOVB 
60$: 
3$: ADD 
4$: CMPB 


5$: JSR 
6$: CMPB 


7$: DECB 


;HORIZONTAL TAB 


8$: MOVB 
9$: JSR 


$TYPEC: 


101$: 
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3$ 

RO, -(SP) 
@2(SP),RO 
@APTENV, SENV 


62$ 
@APTSPOOL , $ENVM 


62$ 
RO,61$ 
PC, $ATY3 


0 
ee 


60$ 
(RO)+,-CSP) 
4$ 


(SP)+ 
(SP)+,RO 
#2,(SP) 


@HT, CSP) 
8$ 
#CRLF , (SP) 
5$ 

(SP)+ 


_—— 


2 
PC, $TYPEC 
Aaa 


2 
$NULL, -C SP) 


1(SP) 

6$ 

PC, $TYPEC 

cara 
$ 


PROCESSOR 


@ CSP) 

PC, $TYPEC 

ae 
$ 


(SP)-+ 
2$ 


asTKS 

10$ 

O$TKB, -CSP) 
#177600, (SP) 
#$XOFF CSP) 
102$ 


asTKS 






* 


3;HALT HERE IF NO TERMINAL 

3; ;LEAVE 

::SAVE RO 

3sGET ADDRESS OF ASCIZ STRING 
;sRUNNING IN APT MODE 

;3NO,GO CHECK FOR APT CONSOLE 
+:SPOOL MESSAGE TO APT 

33NO,GO CHECK FOR CONSOLE 

+s;SETUP MESSAGE ADDRESS FOR APT 
3:;SPOOL MESSAGE TO APT 

;:MESSAGE ADDRESS 

:;APT CONSOLE SUPPRESSED 

3;YES,SKIP TYPE OUT 

3;PUSH CHARACTER TO BE TYPED ONTO STACK 
:;8R IF IT ISN'T THE TERMINATOR 

33;IF TERMINATOR POP IT OFF THE STACK 
+s:RESTORE RO 

:;ADJUST RETURN PC 

38 URN 


;:BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


3;POP <CR><LF> EQUIV 
3;TYPE A CR AND LF 


3;CLEAR CHARACTER COUNT 
3;GET NEXT CHARACTER 
3;GO TYPE THIS CHARACTER 
33IS IT TIME FOR FILLER CHARS.? 
33IF NO GO GET NEXT CHAR. 

3;GET # OF FILLER CHARS. NEEDED 
+sAND THE NULL CHAR. 

3;D0ES A NULL NEED TO BE TYPED? 
33BR IF NO--GO POP THE NULL OFF OF STACK 
33GO TYPE A NULL 

3:00 NOT COUNT AS A COUNT 
;sLOOP 


;;REPLACE TAB WITH SPACE 
3: TYPE A SPACE 

;;BRANCH IF NOT AT 

3:TAB STOP 

33POP SPACE OFF STACK 
;:;GET NEXT CHARACTER 


;3;CHAR IN KYBD BUFFER? 
3;BR IF NOT 

33GET CHAR 

3sSTRIP EXTRANEOUS BITS 
33WAS CHAR XOFF 

33BR IF NOT 


;;WAIT FOR CHAR 





0 he = re en 


CZ0ZA-10 
CZDZAI.P1il 


(2) 005702 
(2) 005704 
(2) 005710 
(2) 005714 
(2) 005720 
(2) 005722 
(2) 005722 
(2) 005724 
(2) 005724 
(2) 005730 
(2) 005732 
(2) 005740 
(2) 

(2) 


BAQ&OQLQQQOOe 
MOM MP SP for 
i i ed 

oO 

rey 

> 

o 


MACY11 o> mee 02-JUL-85 16:19 PAGE 83-29 
TYPE ROUTINE 
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100375 
117716 
042716 
122716 
001366 


005726 


105777 
100375 
116677 
122766 


112737 
112737 
000403 
112737 


010046 
010146 
105737 
001450 
122737 
001031 
132737 
001425 
017600 
062766 
005737 
001375 
010037 
105720 
001376 
163700 
006200 
010037 
012737 
000413 
017637 
062766 
013746 
004737 
000000 


105737 





173256 
177600 
000021 


173240 


000002 
000015 


005770 
000012 


173232 
000002 


000002 


006240 
006236 


006240 


001254 
001255 


000004 


001234 


006150 
000004 


102$: 
10$: 


13; 


B 
$CHARCNT : . WORD 


$TYPEX: RTS 
-SBTTL APT COMMUNICATIONS ROUTINE 


101$ 

8$TKB, (SP) 
#177600, (SP) 
#$XON, (SP) 
101$ 


(SP)+ 
asTPS 


10$ 
2(SP), a$TPB 
ws 


1 
$CHARCNT 
$TYPEX 
@LF ,2(SP) 
$TYPEX 
(PC)+ 

0 

PC 


3;GET CHAR 
3:STRIP IT 
3;WAS IT XON? 
3;BR IF NOT 


33FIX STACK 
;s;WAIT UNTIL PRINTER IS READY 


3;LOAD CHAR TO BE TYPED INTO DATA REG. 


33I1S CHARACTER A CARRIAGE RETURN? 
;;BRANCH IF NO 

33 YES--CLEAR CHARACTER COUNT 
33;EXIT 

:31S CHARACTER A LINE FEED? 
;;BRANCH IF YES 

;;COUNT THE CHARACTER 

;:;CHARACTER COUNT STORAGE 


ff REEREKAREAEEEAERAEEAREARESEEEAEEERABEAREREREARASARSELELSASALELESD 


$ATY1: 
$ATY3: 


$ATY4: 
$ATYC: 


1$: 


2$: 


3$: 


MOVB 


#1,$FFLG 
#1,$MFLG 
$ATYC 

#1,$FFLG 


RO,-CSP) 
R1,-C(SP) 

$MFLG 
5$ 
trae aaaes 

$ 
a 
84(SP),RO 
#2 ,4(SP) 
$MSGTYPE 


1$ 
RO, $MSGAD 
CRO)+ 


2$ 
$MSGAD ,RO 
RO 


RO, $MSGLGT 
tlie 
$ 


177776, -(SP) 
PC, $TYPE 
0 


$FFLG 


33TO REPORT FATAL ERROR 
3370 TYPE A MESSAGE 


3370 ONLY REPORT FATAL ERROR 


33PUSH RO ON STACK 
+3PUSH R1 ON STACK 
+;SHOULD TYPE A MESSAGE? 
3:IF NOT: BR 
4 Sy ae UNDER APT? 

;IF NOT: BR 
SHOULD SPOOL MESSAGES? 
3:IF NOT: BR 
;:GET MESSAGE ADOR. 

;;BUMP RETURN ADOR. 

;;SEE IF DONE W/ LAST XMISSION? 
33;IF NOT: WAIT 
;sPUT ADDR IN MAILBOX 
33FIND END OF MESSAGE 


3;SUB START OF MESSAGE 

33GET MESSAGE LNGTH IN WORDS 
+;PUT LENGTH IN MAILBOX 
3;TELL APT TO TAKE MSG. 


3sPUT MSG ADDR IN JSR LINKAGE 
;3;BUMP RETURN ADDRESS 

3sPUSH 177776 ON STACK 

3;CALL TYPE MACRO 


;3sSHOULD REPORT FATAL ERROR? 






sMJD001 
3MJD001 
sMJD001 
3MJD001 
sMJDOO1 
sMJDOO1L 
sMJDO01 
sMJDOO1 


sMJDOO1 
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001416 
005737 
001413 
005737 
001375 
017637 
062766 


010346 
010446 
017637 
062766 
104402 
000000 
012704 
012703 
105777 
100375 
117714 
142714 
122714 
001014 
105777 
100375 
117714 
142714 
122714 
001366 
105724 
000752 
122714 
001002 
105724 
000745 
122724 
001417 
105777 
100375 


QQ 
ee ee ee 


SFIS G GP GP GPP GPG YY YY YY YUU UU 
oa 
w 
_ 
> 


NNN NNN NLL LLL LPN ON 
ee ee ee ee ee ee ee ee pe ee ee fee fee Fee ee pen pe pe 


r-— 
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001254 
001234 


000004 
000002 
001234 
006240 
006237 
006236 


000004 
000002 


011262 
000007 
172662 
172656 
000200 
000023 
172636 


172632 


000015 
172572 





001236 
000004 


006264 
000004 
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APT COMMUNICATIONS ROUTINE 


11$: 


12$: 


$MFLG: 

$LFLG: 

SFFLG: . 
EVEN 


APTSIZE=200 
APTENV=001 

APTSPOOL =100 
APTCSUP=040 


;STRING 


- INSTR: 


INSTI: 
MSG: 0 


1$; TSTB 


101$: 


83$: 


1028; 
2s: TSTB 


12$ 

sENV 

12$ 

$MSGTYPE 
1$ 


1 

84(SP), $FATAL 
#2 ,4(SP) 
$MSGTYPE 
$FFLG 

$LFLG 

$MFLG 
(SP)+,R1 
(SP)+,RO 

PC 


0 
0 
0 


INPUT ROUTINE 


R3, -(SP) 
R4,-C(SP) 
84(SP),.MSG 
#2,4(SP) 


GINBUF ,R4 
7,R3 


8$TKB, (R4) 
#200 ,(R4) 
@$XOFF ,CR4) 


O$TKB,(R4) 
#200 ,(R4) 
#$XON, (R4) 
101$ 

C(R4)+ 


1$ 

#$X0N, (R4) 
102$ 

(R4)+ 

1$ 
#15,(R4)- 
INSTR2 


asTPS 
es 





SEQ 49 


3:IF NOT: BR 

3;RUNNING UNDER APT? 
s:IF NOT: BR 

3sFINISHED LAST MESSAGE? 
3:IF NOT: WAIT 

3:;GET ERROR @ 

;;BUMP RETURN ADDR. 
3;TELL APT TO TAKE ERROR 
3;CLEAR FATAL FLAG 
3;CLEAR LOG FLAG 
+;CLEAR MESSAGE FLAG 
+;POP STACK INTO R1 
3s3POP STACK INTO RO 
; ;sRETURN 
3;MESSG. FLAG 
3;LOG FLAG 
+sFATAL FLAG 


sSAVE R3 ON STACK 

sSAVE R4 ON STACK 

sGET THE ADDRESS OF THE MESSAGE TO BE PRINTED 
sPOINT TO INSTRUCTION AFTER ADDRESS POINTER 
sPRINT THE MESSAGE 

sMESSAGE IS POINTED TO FROM HERE 

sPOINT R4 TO THE INPUT BUFFER 

sSET THE MAXIMUM NUMBER OF CHARACTERS ALLOWED 
sHAS A CHARACTER BEEN RECEIVED? 

sIF NO, KEEP WAITING FOR IT 

sIF YES, SAVE IT IN THE INPUT BUFFER 

sKEEP ONLY THE 7-BIT ASCII INFORMATION 


:IS IT A XOFF? : ;DSH-BHL 
;BR IF NOT ;+;0SH 
sWAIT FOR A CHARACTER ; ;DSH-BHL 
; ;DSH-BHL 
;GET CHARACTER ; ;O0SH-BHL 
;STRIP DOWN CHARACTER ;;0SH-BHL 
;sWAIT FOR A XON? : ;DSH-BHL 
sGET NEXT CHAR IF NOT + ;0SH-BHL 
:POP STACK 3;0SH 
sWAIT FOR A CHAR 3;DSH 
:IS IT A RANDOM XON ;;0SH- SAL 
;BR IF NO ;;0SH-BHL 
;ELSE, POP STACK + ;0SH-BHL 
3GO GET NEXT CHAR : :0SH-BHL 


sIS IT <CR> ? 
sIF SO, TERMINATE THE INPUT SEQUENCE 


sIF NOT, CHECK TO SEE IF THE CHARACTER CAN PRINT 


sIF WE CAN'T, WAIT UNTIL WE CAN 
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017777 
005303 
001332 
012604 
012603 
010346 
010446 
104402 
000715 
012604 
012603 
000002 


RRA ARRAA 
- 
~ 


> ee ee pe pe pe pe pe pe pe 


010546 
010446 
016605 
012537 
012537 
012537 
112537 
112537 
010566 
005005 
012704 
122714 
001420 
121427 
002415 
121427 
003012 
142714 
152405 
122714 
001406 
006305 
006305 
006305 


000760 
104404 
000750 


020537 
101373 
020537 
103770 
133705 
001365 


AAA AAAAA AAA AAA AA AAA AAA AAR AAA AAA RAR ARR RRR RAR RARRAA 
SOI III GFF FF FG FFG GGG GF GGG GP GD GGG GGG GG BY YUU UU 
oa 
uw 
pees 
o 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee pe ee ee he ee ee ee he pe pe pe pe 


r-— 
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172562 172564 


001230 


011262 
000015 


000060 
000067 
000060 
000015 


006630 
006626 
006634 
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APT COMMUNICATIONS ROUTINE 


-INSTE: 


INSTR2: 


-PARAM: 


PARAM1: 


1$; 


BR 
PARERR: 
BR 


LIMITS: 


9$TKB, $s TPB 
R3 
1$ 


(SP)+,R4 
(SP)+,R3 


CSP)+,R3 





SEQ 50 


sECHO THE CHARACTER BACK 

sREDUCE THE NUMBER OF CHARACTERS RECEIVED 
sIF WE DON'T HAVE 7, GO GET SOME MORE 

sIF WE HAVE 7, RESTORE R4 

sRESTORE R3 

sSAVE R3 ON THE STACK 

sSAVE R4 ON THE STACK 

sPRINT A QUESTION MARK... WHAT'S GOING ON? 
;GO PRINT THE MESSAGE AGAIN 

sRESTORE R4 

sRESTORE R3 

sRETURN TO THE MAIN PROCEDURE 


sCONVERT ASCII STRING TO OCTAL 


RS, -(SP) 

R4, -(SP) 
4(SP),R5 
C(R5)+,LOLIM 
CRS)+,HILIM 
(RS5)+,DEVADR 
(R5)+,LOBITS 
CR5)+,ADRCNT 
RS.4(SP) 

R5 


#INBUF ,R4 
#15, (R4) 
PARERR 
(R4), #60 
PARERR 
(R4) , #67 
PARERR 
#60, (R4) 
CR4)+,R5 
#15, (R4) 
LIMITS 
RS 

RS 

RS 


1$ 
PARAM1 


sSAVE RS ON THE STACK 

sSAVE R4 ON THE STACK 

sGET THE SETUP INFORMATION POINTER 

sSET THE LOW LIMIT FOR THE INPUT 

sSET THE HIGH LIMIT FOR THE INPUT 

sSAVE THE ADDRESS WHERE THE RESULT WILL BE STORED 
;sGET THE MASK OF THE INCORRECT BITS 

sGET THE COUNT OF ITEMS TO BE STORED 

sPOINT TO WHERE MAIN LINE PROGRAM WILL RESUME 
sINITIALIZE THE ASCII TO OCTAL RESULT WORD 
sPOINT TO THE INPUT BUFFER 

sIS THIS CHARACTER A CARRIAGE RETURN? 

sIF SO, PRINT THE MESSAGE AGAIN 

sIS THIS CHARACTER BELOW THE NUMERIC RANGE? 
sIF SO, GO PRINT THE MESSAGE AGAIN 

sIS THIS CHARACTER ABOVE THE NUMERIC RANGE? 
sIF SO, GO PRINT THE MESSAGE AGAIN 

sISOLATE THE NUMBER THE CHARACTER REPRESENTS 


sCONCATENATE THESE BITS TO THE ALREADY EXISTING STRING 


sIS THE NEXT CHARACTER A CARRIAGE RETURN? 
sIF SO, GO SEE IF NUMBER IS WITHIN LIMITS 


sCLEAR BIT POSITION 0, MOVE EXISTING STRING TO LEFT 


sCLEAR POSITION 1, MOVE STRING TO LEFT AGAIN 
sMOVE THE STRING ONE MORE TIME TO MAKE ROOM FOR 
sNEXT THREE BITS 

;GO GET THE NEXT CHARACTER 

s;THERE WAS AN ERROR... GO PRINT MESSAGE AGAIN 
sTRY GETTING THE PARAMETERS AGAIN 


sTEST TO SEE IF NUMBER IS WITHIN LIMITS 


sSTORE NUMBER AT SPECIFIED ADDRESS 


RS,HILIM 
PARERR 
RS,LOLIM 
PARERR 
LOBITS,RS 
PARERR 


sDOES RESULT EXCEED ITS MAXIMUM CORRECT VALUE? 
sIF YES, GO PRINT THE MESSAGE AGAIN 

sIS THE RESULT LOWER THAN ALLOWED? 

sIF YES, GO PRINT THE MESSAGE AGAIN 

sARE ANY INCORRECT BITS SET IN THE RESULT? 

sIF SO, GO PRINT THE MESSAGE AGAIN 





Oe rr 


CZDZA-I0 MACY11 30A(1052) 02-JUL-85 16:19 PAGE 83-32 
CZOZAI .P1i1 02-JUL-85 16:17 
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006600 013704 
006604 010524 
006606 062705 
006612 105337 
096616 001372 
006620 012604 
006622 012605 

000002 


= > pe pe 


006636 016637 


006644 010537 
006650 010437 
006654 010337 
006660 010237 
006664 010137 
010037 
006674 000002 


006676 013700 
006702 013701 
006706 013702 
006712 013703 
006716 013704 
006722 013705 
006726 000002 


006730 104402 
006734 010046 
006736 010146 
006740 010346 
006742 010446 
006744 010546 
006746 017601 
006752 062766 
006760 012137 
006764 112105 
006766 112100 
006770 013104 


oloalelelelelelealealelelelealelalealalealealalalalalalalalalalalealalalalalalalalalalalalalalalalalalalaleatalatealalal 
III III I III III III I III III III III II HY OY YY YY YY Ye 
~ 
o 


ah onl onl aol aol and aul and aml ani ani enh and ani anlanl onl and onl ack onl and ani onl onl and aol acl aol aol aol ol ak ol ol hd hel tent 


o 


006632 


000002 
006635 


000004 


001214 
001212 
001210 
001206 
001204 
001202 


001231 


000012 
000002 
007104 


001402 


000012 


APT COMMUNICATIONS ROUTINE 


1$: 


LOLIM: 
HILIM: 


DEVAOR: 
LOBITS: 
ADRCNT: . 


sSAVE PC OF TEST THAT FAILED AND RO-RS 


.SAVOS: 


Svos: 


-RESOS: 


.-CONVR: 
-CNVRT: 


1$: 


MOV DEVADR ,R4 


AOD #2 ,RS 
OECB ADRCNT 
BNE 1$ 


MOV (SP)+,R4 
MOV (SP)+,RS 


0 
0 
0 
-BYTE 0 
BYTE 0 


MOV 4(SP),SAVPC 
sSAVE RO-RS 


MOV RS, $REGS 
MOV R4, $REG4 
MOV R3, $REG3 
MOV R2, $REG2 
MOV R1, $REG1 
MOV RO, $REGO 


sRESTORE RO-RS 


MOV $REGO,RO 
MOV $REG1,R1 
MOV $REG2,R2 
MOV $REG3,R3 
MOV $REG4,R4 
MOV $REGS,RS 


sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


MOV 912(SP), R1 
ADD 2,12(SP) 
MOV (Ri)+, WROCNT 
MOVB CRi)+,R5 
MOVB (R1)+,RO 
MOV @CR1)+,R4 





















SEQ 51 


sPOINT TO THE LOCATION WHERE THE RESULT WILL BE STORED 
sSTORE THE RESULT 

sCALCULATE THE NEXT DATUM 

sREDUCE COUNT OF STORED RESULTS. IS IT EXCEEDED? 

sIF NOT, GO STORE THE NEXT DATUM 

sRESTORE R4 

sRESTORE RS 

sRETURN TO THE MAIN PROGRAM 


sLOWEST ACCEPTABLE VALUE 

sHIGHEST ACCEPTABLE 

sLOCATION WHERE RESULT WILL BE STORED 
sINCORRECT BITS MASK 
sCOUNT OF ITEMS TO BE STORED 


sSAVE R7 (PC) 


sSAVE RS 
sSAVE R4 
sSAVE R3 
sSAVE R2 
sSAVE R1 
sSAVE RO 
;LEAVE. 


sRESTORE RO 
sRESTORE R1 
sRESTORE R2 
sRESTORE R3 
sRESTORE R4 
sRESTORE RS 
sLEAVE 


sPRINT A CARRIAGE RETURN 
sSAVE RO 

sSAVE R1 

sSAVE R3 

sSAVE R4 

s;SAVE RS 

sPLACE THE ADDRESS OF THE ARGUMENTS IN R1 
sPOINT TO WHERE MAIN PROGRAM WILL RESUME 
sGET NUMBER OF WORDS TO BE PRINTED 

;GET THE NUMBER OF CHARACTERS TO BE PRINTED 
;GET THE NUMBER OF SPACES TO PRINT 

sCOPY THE WORD TO BE CONVERTED 





CZ0ZA-I0 
CZOZAI .Pil 02-JUL-85 16 
(1) 006772 110537 007106 
(1) 006776 010403 
(1) 007000 042703 177770 
(1) 007004 062703 000060 
(1) 007010 110346 
(1) 007012 006004 
(1) 007014 006204 
(1) 007016 006204 
3 007020 005305 
(1) 007022 001365 
(1) 007024 012703 011366 
(1) 007030 112623 
(1) 007032 105337 007106 
(1) 007036 001374 
(1) 007040 105700 
(1) 007042 001404 
(1) 007044 112723 000040 
(1) 007050 105300 
(1) 007052 001374 
(1) 007054 105013 
(1) 007056 104402 011366 
(1) 007062 005337 007104 
(1) 0C7066 001336 
(1) 007070 012605 
(1) 007072 012604 
(1) 007074 012603 
(1) 007076 012601 
(1) 007100 012600 
(1) 007102 000002 
(1) 007104 000000 
(1) 007106 000 
th 007107 000 
(1) 007110 000000 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 007112 010046 
(1) 007114 016600 000002 
(1) 007120 005740 
(1) 007122 111000 
(1) 007124 006300 
(1) 007126 016000 002002 
(1) 007132 000200 
(1) 
(1) 
(1) 
(1) 
(1) 007134 
(1) 007134 052777 000020 172700 
(1) 007142 032777 000020 172672 


- 
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APT COMMUNICATIONS ROUTINE 


sCOPY THE CHARACTER COUNT 

sCOPY THE ARGUMENT WORD AGAIN 

sISOLATE THREE BITS TO BE TREATED AS A CHARACTER 
sMAKE AN ASCII CHARACTER OUT OF THEM 

sSAVE THAT CHARACTER 

sMOVE THE NEXT THREE BITS INTO PLACE 

sMOVE THEM AGAIN 

sAND FINALLY A THIRD TIME 

sREDUCE CHARACTER COUNT.ARE ALL CHARACTERS 


sIF NO, GO BUILD THE NEXT ONE. 

sNOW POINT TO WHERE NUMBER WILL BE PRINTED FROM 
; STORE THE CHARACTER, STARTING WITH THE MOST 
sREDUCE COUNT. ARE ALL CHARACTERS TRANSFERRED? 
sIF NO, GO TRANSFER ANOTHER 

sARE ANY SPACES TO BE PRINTED? 

sIF NO, DON’T SET UP ANY 

sADD A SPACE TO THE OUTPUT BUFFER 

sREDUCE THE COUNT. SHOULD WE PRINT MORE? 

sIF YES, GO ADD ANOTHER SPACE 

sTERMINATE THE OUTPUT BUFFER WITH A ZERO 

sPRINT THE STRING WE JUST BUILT 

sREDUCE THE WORD COUNT. ARE ANY MORE WORDS LEFT? 
sIF YES, GO CONVERT THEM 

sRESTORE RS 

sRESTORE R4 

sRESTORE R3 

sRESTORE R1 

sRESTORE RO 

sRETURN TO THE MAIN PROGRAM 


sNUMBER OF CHARACTERS TO PRINT 
sNUMBER OF SPACES TO PRINT 


sSAVE RO. USE RO TO FIND TRAP ROUTINE 

sGET TRAP ADDRESS 

sGET TRAP 

;GET RIGHT BYTE OF TRAPC TRAP OFFSET) 
sPOSITION OFFSET FOR TABLE INDEXING 

sPLACE INDEXED ADDRESS OF TABLE IN RO 

s TRANSFER TO THAT ADDRESS AND RESTORE OLD RO 


sSET OCLR 


MOVB RS ,,CHRCNT 
3$: MOV R4,R3 
BIC @tC<7>,R3 
ADD »R3 
MOVB R3, -(SP) 
ROR R4 
ASR R4 
ASR R4 
DEC RS 
sBUILT? 
BNE 3$ 
MOV @MDATA,R3 
4$; MOVB (SP)+,CR3)+ 
DECB CHRCNT 
BNE 43 
TSTB RO 
BEQ 6$ 
5$: MOVB #040,(R3)-+ 
DECB RO 
BNE 5$ 
6$: CLRB CR3) 
TYPE »MDATA 
DEC WROCNT 
BNE is 
MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,R1 
MOV (SP)+,RO 
RTI 
WROCNT: 0 
CHRCNT: .BYTE 
SPACNT: .BYTE 0 
BINWRD: 0 
;TRAP DISPATCH SERVICE 
sARGUMENT OF TRAP IS EXTRACTED 
;AND USED AS OFFSET TO OBTAIN POINTER 
3T0 SELECTED SUBROUTINE 
.TRPSR: MOV RO, -CSP) 
MOV 2(SP),RO 
TST -CRO) 
MOVB CRO) ,RO 
ASL RO 
MOV . TRPTABCRO), RO 
RTS RO 
;DEVICE CLEAR ROUTINE 
sISSUE A DEVICE CLEAR 
$ “eee ee ee eee ene eee er ee 
-DEVICE.CLR: 
BIS @0CLR,@DZCSR 
18: BIT @0CLR, @OZCSR 





s0ID IT CLEAR? 








CZDZA-10 
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007150 
007152 


tn oe 1 oe ae ee 
> > bo pe pe pe pe pe pe 
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007154 
007156 
007164 


007166 
007166 
007170 
007174 
007176 
007200 
007202 
007204 
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02-JUL-85 16:17 


001374 
000002 


104413 
153777 
000002 


010046 
013700 
005300 
001376 
012600 
000002 
000001 


013716 
005037 
000002 





001417 


007204 


001360 
001362 


007642 
010000 


171730 


000207 
020000 


001136 
001136 
001123 
000002 
001134 


177001 
030340 
007456 
007470 
007502 
001123 


007502 


172656 


171726 


171722 
171702 


-OCLASM: 


DELAY: 


18: 


DLYCNT: 


BNE 
RTI 


ante TO HANDLE MAINTENANCE BIT SETTING WITH DEVICE CLEAR 


DEVICE. CLR 

BISB MNTFLG,@0ZCSR 
RTI 

MOV RO, -(SP) 

MOV DLYCNT ,RO 

DEC RO 

BNE i$ 

MOV (SP)+,RO 

RTI 

- WORD 1 


sADVANCE TO NEXT TEST HANDLER 


. ADVANCE : MOV 


SERROR: 


XBX: 


1$: 


CLR 
RTI 


is 


NEXT, (SP) 
LOCK 


sERROR HANDLER 


PC,SERV.G 
@SW12, 9SWR 


#207, 8$TPB 
$SW13,9SWR 
HALTS 

a SERRPC 


(sp), $ERRPC 
SERFLG 


(SP).RS 
#2,R5 
CR5),R4 
R4,$ITEMB 


R4 
CRS) ,R4 
R4 


#177001,R4 
@. ERRTAB ,R4 
(R4)+, ERRMSG 
(R4)+,DATAHD 
(R4) ,DATABP 
SERFLG 
TYPMSG 
DATABP 


3BR IF NO 
sEXIT ROUTINE 









sISSUE A DEVICE CLEAR 
;LOAD THE MAINTENANCE BIT IF IT IS I MODE 
sRETURN TO CALLING ROUTINE 


sSAVE RO 
sSET COUNT 
;DELAY 


; 

sRESTORE RO 

sLEAVE ROUTINE 

sPATCHABLE LOC FOR MORE TIME 


sCRUNCH STACK WITH ADDRESS OF SCOPE CALL 
sRESET TIGHT LOOP ADDRESS 
sCHECK TO SEE IF OLD TEST GETS REPEATED 


sFIND OUT IF <tG> WAS HIT 
;BELL ON ERROR? 

3BR IF NO BELL 

sTTY READY. 

;D0N'T WAIT IF TTY NOT READY. 
sPUSH A BELL AT THE TTY. 

sDELETE ERROR PRINT OUT? 

3BR IF NO PRINT OUT WANTED. 

:WAS THIS ERROR FOUND LAST TIME? 
;BR IF YES 

sRECORD BEING HERE 

sPREPARE HEADER 

;SAVE ALL PROC REGISTERS 

:GET THE PC OF ERROR 

:GET ADDRESS OF TRAP CALL 

:GET ERROR INSTRUCTION 

;COPY TEST NUMBER FOR APT HANDLING 
;MULT BY TWO 

;DOUBLE IT 

MULT AGAIN 

;CLEAR JUNK 

;GET POINTER 

;GET ERROR MESSAGE 

3GET DATA HEADRER 

;GET DATA TABLE 

sTYPE HEADER 

;BR IF YES 

;D0ES DATA TABLE EXIST? 














SEQ 54 


CZ0ZA-10 MACY11 30AC1052) 02-JUL-85 16:19 PAGE 83-35 
CZ0ZAI.Pil 02-JUL-85 16:17 APT COMMUNICATIONS ROUTINE 
(1) 007360 001044 BNE TYPDAT BR IF YES. 
(1) 007362 104402 001231 TYPMSG: TYPE » SCRLF sTYPE A CARRIAGE RETURN 
(1) 007366 104402 001231 TYPE » $CRLF sAND TYPE ANOTHER 
(1) 007372 005737 001362 TST LOCK 
(1) 007376 001402 BEQ 1$ 
(1) 007400 104402 010756 TYPE »MASTEK 
(1) 007404 104402 010744 1$; TYPE eMTSTN 
(1) 007410 104412 007634 CNVRT ,XTSTN sSHOW IT 
(1) 007414 104402 011033 TYPE »MERRPC sTYPE PC. 
C1) 007420 104412 007626 CNVRT ,ERTABO sSHOW IT 
(1) 007424 104402 010706 TYPE »MCSRX 
(1) 007430 104412 005072 CNVRT ,XCSR 
C1) 007434 104402 001231 TYPE » SCRLF sGIVE A CR/LF 
(1) 007440 112737 177777 001123 MOVB -1, SERFLG sNO MORE HEADER UNLESS NO DATA TABLE. 
(1) 007446 005737 007456 TST ERRMSG sIS THERE AN ERROR MESSAGE? 
(i) 007452 001402 BEQ WTBS.FM sBR IF NO. 
Ci) 007454 104402 TYPE sTYPE 
(1) 007456 000000 ERRMSG: 0 ; ERROR MESSAGE 
(1) 007460 WTBS.FM: ; 
(1) 007460 005737 007470 TST DATAHD sDATA HEADER? 
(1) 007464 001402 BEQ TYPDAT BR IF NO 
(1) 007466 104402 TYPE s TYPE 
(1) 0C7470 000000 DATAHD: O 3 DATA HEADER 
(1) 0C7472 005737 007502 TYPDAT: TST DATABP sDATA TABLE? 
(i) 007476 001402 BEQ RESREG 3;BR IF NO. 
(1) 007500 104411 CONVRT ; SHOW 
(1) 007502 000000 DATABP: 0 H DATA TABLE 
(1) 007504 104410 RESREG: RESOS sRESTORE PROC REGISTERS 
(1) 007506 122737 000001 001254 HALTS: CMPB GAPTENV, SENV 31S APT RUNNING? 
(1) 007514 001007 BNE 2$ sSKIP APT CALL IF NOT 
(1) 007516 113737 001134 007530 MOVB $SITEMB,7$ sCOPY ERROR NUMBER 
(1) 007524 004737 006012 JSR PC, S$ATY4 sCALL APT SERVICE 
(1) 007530 000000 7$; -WORD 0 sERROR NUMBER STUCK HERE 
(1) 007532 000777 8$: BR 8$ sLOCK UP HERE 
(1) 007534 022737 005056 000042 2%: CMP @$ENDAD, #42 sCHECK TO SEE IF IN ACT-11 MODE 
(1) 007542 001403 BEQ 1$ sIF SO, HANDLE ACCORDINGLY 
(1) 007544 005777 171410 TST OSWR sHALT ON ERROR? 
(1) 007550 100004 BPL EXITER ;6R IF NO HALT ON ERROR 
(1) 007552 016677 000002 171402 1%: MOV 2(SP),@DISPLAY ;SHOW ERROR PC IN DATA DISPLAY 
(1) 007560 000000 HALT sHALT 
(1) 007562 005237 001132 EXITER: INC SERTTL sUPDATE ERROR COUNT 
(1) 007566 032777 000400 171364 BIT #SWO8, BSWR :GOTO TOP OF TEST? 
(1) 007574 001007 BNE i$ 3BR IF YES 
(1) 007576 032777 002000 171354 BIT @SW10, OSWR sGOTO NEXT TEST? 
(1) 007604 001407 BEQ es 3BR IF NO 
(1) 007606 013737 001360 001126 MOV NEXT , $LPADR sSET FOR NEXT TEST 
(1) 007614 0612706 001120 18: MOV @STACK ,SP sRESET SP 
(1) 007620 000177 171302 JMP @$LPADR sGOTO SPECIFIED TEST 
(1) 007624 000002 2s: RTI sRETURN 
(1) 007626 000001 ERTABO: 1 
(1) 007630 006 002 -BYTE 6,2 
(1) 007632 001402 SAVPC 
(1) 007634 000001 XTSTN: 1 
(1) 007636 002 002 BYTE 2.2 
(1) 007640 001122 $TSTNM 
(1) 007642 022737 177570 001160 SERV.G: CMP #177570, SWR sIS THE SWITCH REGISTER HARDWIRED? 
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097650 
097652 
007656 
007662 
007666 
007672 


007674 
007700 
007702 
007706 
007712 
007716 


007720 
007724 
007726 
007730 


007732 
007736 
007740 
007746 
0C7750 
007756 
007764 
007770 
007774 
010000 
010004 
010006 
010012 
010016 
010022 


010024 
010030 
010032 
010036 
010042 
010046 


010050 
010054 
010056 
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019100 
010102 
010110 
010112 
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105777 
100375 
117716 
042716 
122716 
001366 


122716 


105777 
100375 
117716 
042716 
122716 
001366 


122716 
001002 
005726 
000747 


122726 
001472 
005077 
105777 
100375 
016677 
000241 
006177 
006177 


010260 
171304 
177600 
000023 


171264 
171260 


177600 
000021 


000021 


000007 
004000 


171204 
010302 
010262 
010274 
010304 
171160 


171154 
177600 
000023 
171134 
171130 


177600 
000021 


000021 


000015 


171064 
171070 


177776 


171042 
171036 


171216 


010302 
171174 


171062 


101$: 


102$: 


7$: 


1$: 


9$: 


111$: 


112$: 


8$: 


2s: 


99% 

6$ 

#177600, (SP) 
@$XOFF ,CSP) 
102$ 


asTKS 

101$ 

@$TKB, (SP) 
#177600, (SP) 
#$XON, (SP) 
101$ 


#$XON, (SP) 
7$ 

(SP)+ 

6$ 


#7, CSP )-+ 
6$ 


#4000, $TKS 
SERV .G 


asTKB, -(SP) 
#177600, (SP) 
@$XOFF ,(SP) 
112$ 


asTKS 

111$ 

as TKB, (SP) 
#177600, (SP) 
#$XON, (SP) 
111$ 

#$XON, (SP) 
8$ 


(SP)-+ 
9$ 


#15,(SP)+ 
5$ 


@SWR 
asTPS 


6 
-2(SP),@$TPB 


@SWR 
@SWR 





sIF SO, IGNORE tG 





+ ;0SH-BHL 


sOTHERWISE, GET THE LAST CHARACTER TYPED 


;STRIP CHAR 
31S IT A XOFF 
;BR IF NO 


sWAIT FOR A CHAR 


;GET THE CHAR 
sSTRIP CHAR 
:IS IT A XON 
;BR IF NO 


31S IT RANDOM XON ? 


;BR IF NOT 
sPOP STACK 


sIGNORE XON CHAR 


sIS IT tG? 


sIF NOT, IGNORE INPUT 


3RX BUSY? 
;BR IF YES 
sSAVE CSWR). 
; 

; 

$ 


; 
sWAIT FOR DONE. 


3 
sSTRIP CHAR 
;IS IT A XOFF 
;BR IF NO 


sWAIT FOR A CHAR 


;GET THE CHAR 
;STRIP CHAR 
:IS IT A XON 
;BR IF NO 


sIS IT RANDOM XON ? 


;BR IF NOT 
;POP STACK 


sIGNORE XON CHAR 





; ;DSH-BHL 
+ ;DSH-BHL 
; ;O0SH-BHL 


:;DSH-BHL 
; sDSH-BHL 
; s0SH-BHL 
3; ;0SH-BHL 
3; ;DSH-BHL 
; sDSH-BHL 


+;0SH 
3;D0SH 
+;D0SH 
;+;D0SH 


3; ;0SH-BHL 
; ;DSH-BHL 
; ;DSH-BHL 


; ;DSH-BHL 
; ;DSH-BHL 
3; ;DSH-BHL 
; ;0SH-BHL 
; ;DSH-BHL 
; ;DSH-BHL 





CZ0ZA-1I0 
CZDOZAI.Pil 

(1) 010122 
(1) 010126 
(1) 010130 
(1) 010136 
(1) 010140 
(1) 010146 
(1) 010150 
(1) 010156 
(1) 010164 
(1) 010170 
(1) 010172 
(1) 010176 
(1) 010202 
(1) 010206 
(1) 

(i) 010210 
(i) 010214 
(1) 010216 
(1) 010222 
(1) 010226 
(1) 010232 
(1) 

(1) 010234 
(1) 010240 
(1) 010242 
(1) 010244 
(1) 

(1) 010246 
(1) 010252 
(1) 010254 
(1) 010260 
(1) 

(1) 010262 
(1) 010270 
(1) 

(1) 010274 
(1) 010276 
(1) 010300 
(1) 010302 
(1) 010304 
(1) 

(2) 

(2) 

(3) 

C2) 

(2) 010310 
(2) 010316 
(4) 010324 
(4) 010326 
(4) 010330 
(4) 010332 
(4) 019334 
(4) 010336 
(4) 010340 
(2) 010344 
(2) 010350 
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006177 
103713 
026627 
002707 
026627 
003303 
042766 
056677 
105777 
100375 
017746 
042716 
122716 
001012 


105777 
100375 
117716 
042716 
122716 
001366 


122716 
001002 
005726 
000747 


122726 
001310 
104402 
000207 


000000 
036457 


012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
010637 
012737 


171032 
177776 
177776 
177770 
177776 
170774 
170770 
177600 
000023 
170750 
170744 


177600 
000021 


000021 


000015 
001231 


051450 
000057 


000 


000057 


010454 
000340 


170614 
010460 
010362 





000060 
000067 


177776 
170774 


051127 


000024 
000026 


000024 











SEQ 56 
APT COMMUNICATIONS ROUTINE 


ROL QSWR $ 
BcS is sERROR 
cmp -2(SP), #60 $ 
BLT i$ 3 
CMP -2(SP), #67 3 
BGT 1$ F 
BIC @tC<7>,-2(SP) 3 
BIS -2(SP),@SWR 3 
12$: TSTB asTKS ; 
BPL 74 ; 
BIC #177600, (SP) sSTRIP CHAR ; ;DSH-BHL 
CMPB #$XOFF ,C SP) 3IS IT A XOFF ; ;D0SH-BHL 
BNE 122$ ;BR IF NO : ;DSH-BHL 
121$: TSTB asTKS sWAIT FOR A CHAR ;:D0SH-BHL 
BPL 121$ : ;DSH-BHL 
MOVB @$TKB, (SP) ;GET THE CHAR : ;DSH-BHL 
BIC #177600, (SP) ;STRIP CHAR 3; ;DSH-BHL 
CMPB #$X0N, (SP) ;IS IT A XON ; ;DSH-BHL 
BNE 121$ ;BR IF NO ; ;DSH-BHL 
122$: CMPB #$X0ON, (SP) :IS IT RANDOM XON ? +;0SH 
BNE 10$ ;BR IF NOT ;;D0SH 
TST (SP)+ ;POP STACK +;DSH 
BR 12$ sIGNORE XON CHAR ;:DSH 
10$: CMPB #15, (SP)+ 
BNE 2s 3 
5$: TYPE » $CRLF 8 
6$: RTS PC 
89$: -ASCIZ <200>? (SWR)=/? 
-EVEN 
88$: 1 
-BYTE 6,0 
90$ 
90$: -WORD 0 
91$: -ASCIZ 2?/=/? 


-EVEN 
-SBTTL POWER DOWN AND UP ROUTINES 


WEL ror rir irri titi iri ittititrittitittirittit ttt tt ttt TTT Ts 

sPOWER DOWN ROUTINE 

$PWRON: MOV #SILLUP,@#PWRVEC ;;SET FOR FAST UP 
MOV #340 ,AMPWRVEC+2 ;;PRIO:7 


. MOV RO, -(SP) 3sPUSH RO ON STACK 
MOV R1,-(SP) 3sPUSH R1 ON STACK 
MOV R2,-(SP) ;s;PUSH R2 ON STACK 
MOV R3,-(SP) 33PUSH R3 ON STACK 
MOV R4,-(SP) 3sPUSH R4 ON STACK 
MOV RS, -(SP) 3sPUSH RS ON STACK 
MOV OSWR , - (SP) +;PUSH OSWR ON STACK 
MOV SP, $SAVR6 33SAVE SP 


MOV #$PWRUP,@ePWRVEC ;;SET UP VECTOR 


CZ0ZA-10 
CZDZAI.Pil 


(2) 010356 
(2) 010360 


(2) 010362 
(2) 010370 
(2) 010374 
C2) 010400 
(2) 010404 
(4) 010406 
(4) 010412 
(4) 010414 
(4) 010416 
(4) 010420 
(4) 010422 
(4) 010424 
(2) 010426 
C2) 010434 
(2) 010442 
(2) 010444 
(2) 010446 
(2) 010450 
(2) 010452 
(2) 010454 
(2) 010456 
(2) 010460 
(2) 010462 
(2) 010525 
(2) 010550 
(2) 010564 
(2) 010633 
(2) 010657 
(2) 010706 
(2) 010714 
(2) 010722 
(2) 010733 
(2) 010744 
(2) 010756 
(2) 010761 
(2) 011033 
(2) 011040 
(2) 011065 


(2) 011130 
(2) 011132 
(2) 011134 
(2) 011136 
(2) 011140 
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POWER DOWN AND UP ROUTINES 


02-JUL-85 16:17 


000000 
000776 


012737 
013706 
005037 
005237 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104402 


010454 
010460 
010460 
010460 


170546 


010310 
000340 


051127 
047105 
047125 
047522 
047111 


000024 


000024 
000026 


043040 
020104 
044516 
051107 
052523 
045503 
000040 
000040 
051505 
051117 
047040 


020124 
000040 
047440 
042514 


HALT 
BR 


fF PARRA REREEEREEEEEAEEAEARAEAEEAEEAEE AERA AEEAEE REESE ED SEES DEEDS 
;POWER UP ROUTINE 


$PWRUP: MOV 


1$: INC 


$PWRMG: .WORD 
$PWRAD: .WORD 
$ILLUP: HALT 


$SAVR6: O 
MPFAIL: .ASCIZ 
MEPASS: .ASCIZ 
MR: -ASCIZ 
MERR2: .ASCIZ 
MERR3: .ASCIZ 
MLOCK: .ASCIZ 
MCSRX: .ASCIZ 
MVECX: .ASCIZ 
MPASSX: .ASCIZ 
MERRX: .ASCIZ 
MTSTN: .ASCIZ 
MASTEK: .ASCIZ 
MNEW : -ASCIZ 
MERRPC: .ASCIZ 
XHEAD: .ASCIZ 
MBADLN: .ASCIZ 
-EVEN 


XSTATQ: 2 
-BYTE 
$TMP1 
-BYTE 
$TMP2 

-EVEN 


SE =EXTERNAL LOOP BACK 
;I= INTERNAL LOOP BACK 
3S=STAGGERED LOOP BACK 


#$ILLUP,@ePWRVEC ;;SET FOR FAST DOWN 


$SAVR6,SP 3;GET SP 

$SAVR6 3;WAIT LOOP FOR THE TTY 
$SAVR6 3s;WAIT FOR THE INC 

i$ 3:;0F WORD 

(SP)+,@SWR + sPOP STACK INTO SSWR 
(SP)+,R5 33POP STACK INTO RS 
(SP)+,R4 33POP STACK INTO R4 
(SP)+,R3 3;POP STACK INTO R3 
(SP)+,R2 33POP STACK INTO R2 
(SP)+,R1 3;POP STACK INTO R1 
(SP)+,RO 33POP STACK INTO RO 


@$PWRON,@¢PWRVEC ;;SET UP THE POWER DOWN VECTOR 
#340 ,Q@PWRVEC+2 ;;PRIO:7 
3sREPORT THE POWER FAILURE 


MPFAIL s+sPOWER FAIL MESSAGE POINTER 
(PC)+, (SP) 3;RESTART AT RESTART 
RESTART ;sRESTART ADDRESS 
3s THE POWER UP SEQUENCE WAS STARTED 
--2 3; BEFORE THE POWER DOWN WAS COMPLETE 


3;PUT THE SP HERE 
<200>/PWR FAILED. RESTART AT LAST TEST / 
<200>/END PASS CZDZA-I / 
<200>/RUNNING / 
<200>/PROGRAM INDICATES NO DEVICES PRESENT./ 
<200>/INSUFFICIENT DATA!/ 
<200>/LOCK ON SELECTED TEST/ 
/CSR: / 
/VEC: / 
/PASSES: / 
ZERRORS: / 
/TEST NO: / 
/« / 
oo SWITCH REG TO DZ11‘S DESIRED ACTIVE./ 
/PC: / 


<200>/MAP OF DZ11 STATUS/<200> 
<200>/ILLEGAL ENTRY IN STAGGERED MODE/<200> 
6,3 

6.2 


-$SETFLG-22222sseseeesesseeeeeeeeeees222 


— ROUTINE ESTABLISHES WHICH MAINTENANCE MODE THE DEVICE IS IN 





SEQ 57 





CZ0ZA-I0 
CZDZAI .Pil 


011142 
011146 
011154 
011162 
011164 
011170 
011174 
011176 
011204 
011206 
011212 
011220 
011222 
011230 
011232 
011236 
011242 
011246 
011250 
011252 
011254 
011256 
011260 


011262 
011324 
011366 


011430 
011434 
011442 
011450 
011456 
011460 
011464 
011466 
011474 
011476 
011500 
011504 
011512 
011516 
011524 
011526 
011530 








SEQ 58 


MACY11 ie 02-JUL-85 16:19 PAGE 83-39 
02-JUL-85 16:1 PO 


017605 
042737 


000000 
011430 


011637 
162737 
017737 
622737 
001003 
011637 
000412 
022737 
001401 
000000 
011637 
017737 
062716 
017766 
000002 
000000 
000000 


000000 
000040 
000105 


011254 
001417 


000111 


011256 
000010 


000123 


011260 
001417 
000002 


011526 
000002 
000060 
106427 


011526 
106437 
011526 
000916 


000002 
000004 


011262 


011262 


011262 


001417 
011262 


011526 
011530 
011530 


011530 


011526 
000002 


WER DOWN AND UP ROUTINES 


. SETFLG: MOV aC SP),RS sPICK UP ADDRESS OF TAG 
BIC #40, INBUF sSTRIP LOWER CASE 
CMPB #'E, INBUF sIS IT EXTERNAL LOOP BACK ? 
BNE 4$ 3NO 
MOV 1$,(R5) sYES STORE INFO 
CLRB MNTFLG ;SET MAINT BIT =0 
BR 7$ 3;GET OUT 
4$: CMPB #'I, INBUF sIS IT INTERNAL LOOP BACK ? 
BNE 5$ 3NO 
MOV 2$,CR5) sYES STORE INFO 
MOVB @MAINT ,MNTFLG ;SET UP THE MAINTENANCE FLAG LOADER 
BR 7$ ;GET OUT 
5$: CMPB #'S, INBUF ;IS IT STAGGERED LOOP BACK ? 
BNE 6$ sWHAT ? 
MOV 3$,(R5) sYES STORE INFO 
CLRB MNTFLG ;ZERO BITS 
7$: - #2,(SP) ;POP AROUND 
6$: INSTER sRETRY 
BR .SETFLG ;DITTO 
1$ -WORD 200 sEXTERNAL = E 
2$ -WORD 0O sINTERNAL = I 
3$: -WORD 100000 ;STAGGERED = S 
3 -- END O MACRO 2222222222222222222 
3 -$BUFFER-==2ssss222se2eeseeeeeeeeeee2s2222 
;BUFFERS FOR INPUT-OUTPUT 
INBUF: 0O 
.=.+40 
TEMP : 0 
-=.+40 
MDATA: 0O 
=,+40 
SET.PS: MOV (SP),3$ 
SUB #2,3$ 
MOV a3$,4$ 
CMP #106427, 4$ 
BNE 
MOV (3p), 3$ 
BR 
1$: CMP $106437, 4$ 
BEQ +4 
HALT sRESERVED INSTRUCTION NOT “MTPS” 
MOV (SP),3$ 
MOV 83$,3$ 
2s: ADD #2,(SP) 
MOV 83$,2CSP) 
RTI 
3$: 0 
4$: 0 





CZ0ZA-10 
CZDZAI .P11 


(2) 011532 
(2) 011536 
(2) 011540 
(2) 011544 
(2) 011546 
(2) 011550 
(2) 011556 
(2) 011564 
(2) 011566 
(2) 011570 
(2) 011574 
(2) 011600 
(2) 011606 
(2) 011614 
(2) 011616 
(2) 011624 
(2) 011626 
(2) 011630 
(2) 011634 
(2) 011640 
(2) 011644 
(2) 011652 


(2) 011660 
(2) 011662 
(2) 011670 
(2) 011674 
(2) 011700 
(2) 011704 
(2) 011712 
(2) 011720 
(2) 011724 
(2) 011730 
(2) 011734 
(2) 011740 
(2) 011744 
(2) 011746 
(2) 011754 

011756 


011762 


011766 
011770 


(2) 
(3) 
(3) 
(3) 011764 
(3) 
(3) 
(3) 011772 
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POWER DOWN AND UP ROUTINES 


02-JUL-85 16:17 


005737 
001004 
104402 
000000 
000776 
013737 
033737 
001020 
000241 
006137 
005537 
062737 
022737 
001355 
012737 
000751 
000241 
006137 
005537 
013700 
062737 
022737 


001003 
012737 
012037 
012037 
012037 
113737 
042737 
012037 
012037 
012037 
004737 
005737 
001051 
032777 
001445 
104402 


104403 
010744 
104405 
000001 
001000 





001226 
001404 


001412 
001412 


001412 


001412 
001412 


001412 


001414 


030334 


167204 





SEQ 59 


: -- END O MACRO <<2ssseeeeeeaece222 


CYCLE: 


1$: 


2s: 


3$: 


7$: 


3 -$SCYCLE-2222seceeeeeseeeeecssecaeees22 


a 

sROUTINE USED TO “CYCLE” THROUGH UP TO SIXTEEN 0211'S 

sTHIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
sAND RUNS THE SPECIFIED 0Z11‘S. THIS ROUTINE #MUST« 
sBE_RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 

sSETUP NECESSARY. 
; 


DZACTV 
1$ 
»MERR2 


--2 
$MXCNT, $TIMES 
~ ‘eared 


RUN 

RUN 

#14, ACTIVE 

+ phlei 


1 
+ etc teaias 
1 


RUN 

RUN 

ACTIVE ,RO 

#14, ACTIVE 
#0Z.END, ACTIVE 


3$ 
#0Z.MAP , ACTIVE 
(RO)+, $BASE 
(RO)+,OZRIV 
(RO)+,DZPRT 
DZPRT+1,EIAFLG 
#BIT15 ,DZPRT 
CRO)+,LINE 
CRO)+,PAR 
(RO)+, MODE 

PC ,OZLEV 

9442 

4s 

#SWO1,@SWR 

4s 


» $CRLF 


sARE ANY 0Z11’S TO BE TESTED? 

sBR IF OK, 

sNO DZ11‘S SELECTED!! 

sSTOP THE SHOW. 

sDISQUALIFY CONT. SW. 

sRESTORE THE NUMBER OF ITERATIONS TO MAKE 
sIS THIS ONE “ACTIVE” 

sBR IF GOOD ONE FOUND. 


sUPDATE POINTER 

sCATCH CARRY FROM RUN 

sUPDATE ADDRESS POINTER. 

sHAVE WE PASSED THE END OF THE MAP? 

sIF NO, KEEP GOING; NOT ALL TESTED FOR. 
sRESET ADDRESS POINTER. 

sKEEP LOOKING FOR ACTIVE 0211 


sUPDATE POINTER. 
sCATCH CARRY. 

sGET ADDRESS POINTER. 
sUPDATE. 


;ALL DONE? 

;BR IF NO. 

sRESTORE POINTER. 

;LOAD SYSTEM CTRL. REG 

;LOAD VECTOR 

;LOAD PRIORITY 

sEIA OR 20MA 

;CLEAR FLAG 

;SET UP LINE DZ LINES ACTIVE 
;SET UP PARAMETERIZATION 

3SET UP MAINTENANCE MODE 

;SET UP 

sARE WE UNDER MONITOR CONTROL? 
sIF YES, SKIP THIS SETUP 

sIF SWO1=1, GET STARTING TEST # 
;BR IF NO TEST IS TO BE INPUTTED 


3 -$GETPAR-s22sseseeeesuzesseseeesaseez22252 


sCALL_THE STRING INPUT ROUTINE 

sPOINTER TQ MESSAGE TO BE PRINTED 

sCALL TiiE OCTAL TO ASCII CONVERT ROUTINE 
sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 








CZ0ZA-10 
CZ0ZAI .Pi1 


(3) 011774 
(3) 011776 
(3) 011777 


(2) 012000 
(2) 012004 
(2) 012010 
(2) 012012 
(2) 012020 
(2) 012022 
(2) 012030 
(2) 012032 
(2) 012036 
(2) 012044 
(2) 012050 
(2) 012052 
(2) 012054 
(2) 012060 
(2) 012062 
(2) 012066 
(2) 012070 
(2) 012076 
(2) 012076 
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02-JUL-85 16:17 


012737 
000177 


013036 
000004 


012737 
001122 
001126 
000002 
001231 
023730 
001230 
013036 
167024 











000002 
000004 


001126 


001126 


SEQ 60 
WER DOWN AND UP ROUTINES 


$TSTNM sPOINTER TO MAP LOCATION TO BE FILLED 
-BYTE 0 sMASV OF INVALID BITS FOR THIS PARAMETER 
BYTE i sNUMBER OF PARAMETERS TO STORE 
3; -- END O MACRO s222ssseseeees22222 
MOV #TST1,RO 
S$: CMP #4,(RO) 
BNE 6$ 
CMP #12737 ,2C(RO) 
BNE 6$ 
CMP $TSTNM,4(RO) sIS THIS THE TEST ? 
BNE 6$ sIF NOT, DON’T PROCESS NUMBER 
MOV RO, $LPADR sSAVE PC 
ADD #2, $LPADR sPOP OVER SCOPE 
TYPE » $CRLF 
BR 8$ 
6$: TST (RO)+ 
CMP RO, #TLAST+10 
BNE 5$ 
TYPE » $QUES 
BR 7$ 
a MOV @TST1, $LPADR s;PREPARE TEST ADDRESS 
RESTART: JMP @$LPADR sGO START TESTING. #**#WARNING ! ssa% 


sTHIS JUMP IS USED BY POWER UP ROUTINE!!!! 


CZDZA-10 
CZ0ZAI.P11 


012102 
012106 
012112 
012116 


012122 
012126 
012130 
012132 
012134 
012136 
012140 
012144 
012150 
012154 
012160 
012162 
012164 
012166 
012170 
012174 
012200 
012202 
012204 
012206 
012210 
012214 
012216 
012220 
012226 
012234 
012236 
012240 
012244 
012252 


012254 
012254 
012256 
012262 
012266 
012272 
012274 
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012700 
013701 
013702 
042702 


113703 


000005 
105337 
012702 
012703 
005022 
022702 


001500 
001310 
001304 
177007 


001305 


177770 


001314 


100000 
100000 


177777 
001256 


001415 
001500 
001320 


002000 





SETAPT: 


1$: 


2s: 


3$: 


177772 
177776 


4$: 


001160 


CSRMAP: 
1$: 


s-ROUTINE USED TO SET UP THE DIAGNOSTIC VIA APT. 
; IF BIT7 IN THE ENVIRONMENT MODE ($ENVM) BYTE IS SET, 
; THE PROGRAM WILL LOAD ITS PARAMETERS FROM THE ETABLE. 


s*ROUTINE USED TO "AUTO SIZE” THE 0Z11 


#0Z.MAP,RO 
$BASE,R1 
$VECT1,R2 


#tC<770>,R2 
$VECT1+1,R3 


#tC<7>,R3 
#$DDWO ,.R4 
$DEVM,R5S 
R5 ,OZACTV 


R1,CRO)+ 
R2,CRO)+ 
R3,CRO)+ 


$COW1,(RO)+ 
CR4)+,CRO)+ 
4s 


#100000, -6(RO) 
#100000, -2(RO) 


CRO)+ 
es. 
#-1, (RO) 


#$SWREG, SWR 
PC 


s#CSR AND VECTOR. 


s*NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING 
ADDRESS RANGE (160000: 163700) 

AND THE VECTOR MAY BE ANY WHERE IN THE 
FLOATING VECTOR RANGE (300:770) 


INIFLG 
#0Z.MAP,R2 
#$DDWO ,R3 
(R2)+ 
#0Z.END,R2 


-— SEQ 61 



















sPOINT TO THE DEVICE MAP TABLE 
sBUILD DEVICE ADDRESSES IN R1 
sBUILD DEVICE VECTORS IN R2 

sSTRIP AWAY OTHER INFORMATION 


sLOAD THE INTERRUPT PRIORITY FROM R3 
sALIGN THE NUMBER 

sALIGN THE NUMBER 

sALIGN THE NUMBER 

sALIGN THE NUMBER 

sALIGN THE NUMBER 

sREMOVE ALL BUT BUS LEVEL NUMBER 

sPOINT TO THE BEGINNING OF DEVICE PARAMETERS 
sGET THE MAP OF ACTIVE DEVICES 

sSAVE THE BIT MAP 

sGET A DEVICE SELECTION BIT 

sIF IT IS SELECTED, GO SET UP A MAP 

sIF NO MORE ARE SELECTED, GET OUT OF SETUP 
sPOINT TO NEXT DEVICE DESCRIPTOR 

sSET UP THE NEXT ADDRESS 

sSET UP THE NEXT VECTOR GROUP 

sGO SEE IF MORE DEVICES REMAIN 

sLOAD DEVICE ADDRESS 

sLOAD THE VECTOR ADDRESS 

sLOAD THE INTERRUPT PRIORITY LEVEL 

sGET THE NUMBER OF LINES IN OPERATION 
sLOAD DEVICE PARAMETERS 

sIF 20MA MODE SELECTED, SET IT UP 

sSET THE 20MA FLAG IN DZLVN 

sCLEAR THE FLAG IN DZPARN 

sDEFAULT OPERATION TO INTERNAL MAINTENANCE MODE 
;GO BUILD THE NEXT ADDRESS 

sTERMINATE THE DEVICE MAP 

sSET TO SOFTWARE APT SWITCH REGISTER 
sRETURN TO PRINT STATUS TABLE 


sINSURE A BUS INIT. 
sSHOW THAT I WAS HERE 
sLOAD MAP POINTER. 
sPOINT TO ETABLE DEVICE DESCRIPTOR WORDS 
ZERO ENTIRE MAP 
sALL DONE? 





CZ0ZA-I0 
CZDZAI.P11 


012300 
012302 
012306 
012312 
012316 
012324 
012330 
012336 
012340 
012342 
012344 
012346 
012350 
012352 
012360 
012362 
012366 
012370 
012372 
012376 
012402 
012404 
012410 
012412 
012414 
012416 
012420 
012422 
012424 


012430 
012432 
012434 
012440 
012446 
012454 
012456 
012464 
012470 
012474 
012476 
012500 
012504 
012510 
012516 
012520 
012524 
012530 
012532 
012532 
012536 
012540 
012544 
012550 
012556 
012560 
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001374 


010122 
005722 
012722 
052761 
032761 
001003 
052762 
012722 
012712 
012223 
005022 
012712 
105237 
122737 
001405 
062701 
022701 
001275 


105737 
001432 
113701 
110137 
012737 
005301 
001404 


000200 
000040 
000020 
000020 
000020 


000004 


000005 
177400 
177400 


100000 
000377 
017070 


177777 
001410 
000020 


000010 
163700 
001410 
001410 


001411 
000001 





CLR 4(R1) 
sAT pane “aes . IS ~; aed THAT Ri HOLDS A DZi1 CSR ADDRESS. 
Vv 


BNE i$ 
CLRB OZNUM 
MOV 40Z.MAP,R2 
MOV #160000,R1 
000004 MOV 96$,804 
2$: BIS #BITS, (R1) 
000004 BIS BIT7,4(R1) 
CLR RO 
7$: TST C(R1) 
BMI 8$ 
DEC RO 
BNE 7$ 
BR 3$ 
000004 8$: BIT #BIT7,4(R1) 
BEQ 3$ 
BIT #BITS,(R1) 
BEQ 3$ 
CLR RO 
BIS #20,(R1) 
BIT #20,(R1) 
BEQ 3$ 
BIT #20,(R1) 
BEQ +12 
DELAY 
INC RO 
BNE .-12 
BR 3$ 
CLR CR1) 
L ¢ 
TST CR2)+ 
MOV #5 ,CR2)+ 
000004 BIS #177400,4(R1) 
000004 BIT #177400,4(R1) 
BNE 9$ 
177776 BIS #BIT15,-2(R2) 
9$: MOV #377 ,(R2)+ 
MOV #17070,(R2) 
MOV (R2)+,CR3)+ 
CLR (R2)+ 
MOV #-1,(R2) 
INCB DZNUM 
001410 CMPB #20,DZNUM 
BEQ 100$ 
3$; ADD #10,R1 
CMP #163700,R1 
BNE 2$ 
100$: 
TSTB DZNUM 
BEQ 53 
MOVB DZNUM,R1i 
MOVB R1,SAVNUM 
001404 MOV #1,DZACTV 
4$: DEC R1 
BEQ 98$ 


‘sIF SO, GO GET A FINAL CHECK 


SEQ 62 





















;BR IF NO 
sSET OCTAL NUMBER OF DZ11’S TO 0 


sSET FOR FIRST ADDRESS TO BE TESTED 
sSET FOR NON-EXISTENT DEVICE TIME OUT 
sTRY TO SET MASTER SCAN ENABLE 

sTRY TO TRANSMIT ON LINE 7 

sUSE RO AS A COUNTER 

sHAS TRANSMITTER READY COME UP? 


sREDUCE COUNT. TIME UP? 

sIF NOT, KEEP WAITING 

sASSUME IT'S NOT A DZ1i1 

sIS LINE 7 ENABLE STILL SET? IT SHOULD BE 
sIF IT'S NOT, ASSUME IT’'S NOT A DZ11 

;IS MASTER SCAN ENABLE STILL SET? 

sIF NOT, ASSUME IT'S NOT A DZi1 


sSET DEVICE CLEAR 

sSHOULD STAY SET FOR A WHILE IF DZ 
sBR IF NOT OZ11 

sWAIT FOR BIT TO CLEAR 

sBR WHEN CLEARED 


:BIT NOT CLEARED! MUST NOT BE 0Z11 
sGET RID OF MASTER SCAN ENABLE 
sGET RID OF LINE 7 ENABLE 


sSTORE CSR IN CORE TABLE. 

sPOP OVER VECTOR STORE AREA 

sSET THE DEFAULT BUS LEVEL 

sTRY TO SET ALL DTR BITS 

sIF ANY SET ASSUME EIA BOARD 

sIF NONE SET ASSUME BOARD IS 

320 MA, SET 20 MA FLAG 

;SET THE DEFAULT LINE SELECTION PARAMETER 
sSET THE DEFAULT PARAMETERS 

sCOPY PARAMETERS INTO ETABLE DESCRIPTOR 
sSET THE DEFAULT MODE OF OPERATION 

s TERMINATE LIST 

sUPDATE DEVICE COUNTER 

sARE MAX. NO. OF DEV FOUND? 

sYES DON'T LOOK FOR ANY MORE. 

sUPDATE CSR POINTER ADDRESS 


sBR IF MORE ADDRESS TO CHECK. 


sWERE ANY DZ11‘S FOUND AT ALL? 
sERROR AUTO SIZER FOUND NO DZ11‘S IN THIS SYS. 


sSAVE NUMBER OF DEVICES 

























SEQ 63 


CZ0ZA-I0 MACY11 30A(1052) 02-JUL-85 16:19 PAGE 83-44 
CZOZAI.Pil 02-JUL-85 16:17 POWER DOWN AND UP ROUTINES 
(2) 012562 000261 SEC 
(2) 012564 006137 001404 ROL OZACTV 
(2) 012570 000772 BR 4s 
(2) 012572 013737 001500 001310 98s: MOV OZCRO, $BASE sPOINT TO THE ADDRESS OF FIRST DEVICE 
(2) 012600 013737 001512 001314 MOV MANTO, $COW1 sINDICATE TO ETABLE WHAT MODE IS BEING USED 
(2) 012606 012737 000006 000004 993: MOV 96,804 sRESTORE TRAP VECTOR 
(2) 012614 013737 001404 001312 MOV DZACTV, $DEVM sSAVE ACTIVE REGISTER 
(2) 012622 000410 BR VECMAP 3GO FIND THE VECTOR NOW. 
(2) 012624 104402 010564 5$: TYPE »MERR2 sNOTIFY OPR THAT NO 0Z11’S FOUND. 
(2) 012630 005000 CLR RO sMAKE DATA DISPLAY ZERO 
(2) 012632 000000 HALT ;STOP THE SHOW 
(2) 012634 000776 BR --2 sDISABLE CONT. SW. 
(2) 012636 012716 012520 6$: MOV #3$,(SP) sENTERED BY NON-EXISTENT TIME-OUT 
4 012642 000002 RTI sRETURN TO MAINSTREAM 
(2) 012644 012737 000340 000022 VECMAP: MOV #340 ,8¢22 sSET IOT TRAP PRIORITY TO 7 
(2) 012652 012737 012770 000020 MOV $4$,8¢20 ;SET IOT TRAP VECTOR 
(2) 012660 012702 001500 MOV #0Z.MAP,R2 sSET SOFTWARE POINTER 
(2) 012664 012700 0003500 MOV 4300 ,RO sFLOATING VECTORS START HERE. 
(2) 012670 012701 000302 MOV #302 ,R1 3PC OF IOT INSTR. 
(2) 012674 010120 1$: MOV R1,CRO)+ sSTART FILLING VECTOR AREA 
(2) 012676 012721 000004 MOV #4,(R1)+ sWITH .+2; IOT 
(2) 012702 022021 CMP CRO)+,(R1)+ sADD 2 TO RO +R1 
(2) 012704 020127 001000 CMP R1,#1000 sHAS THE VECTOR AREA BEEN EXCEEDED? 
(2) 012710 101771 BLOS 1$ 3BR IF MORE TO FILL 
(2) 012712 013704 001404 MOV DZACTV,R4 sSTORE TEMPORARILY 
(2) 012716 000241 2s: CLC 
(2) 012720 006004 ROR R4 sBRING OUT A BIT 
(2) 012722 103036 BCC 5$ ;BR IF ALL DONE 
(2) 012724 106427 000000 MTPS #0 3ZERO CPU PRIO 
(2) 012730 012772 040040 000000 MOV uae acR2) 
(2) 012736 011201 MOV (R2),R ;GET CSR 
(2) 012740 112761 000200 000004 MOVB ert? acr1) ;SET THE TCR BIT! 
(2) sATTEMPT TO FORCE AN INTERRUPT 
(2) 012746 005200 INC RO ren. 
(2) 012750 001376 BNE 72 FOR TIME TO INTERRUPT 
(2) 012752 012762 000300 000002 MOV #300 ,2(R2) ;NO INTERRUPT ASSUME 300 AND FIX DZ11 LATER 
(2) 012760 000005 3$; RESET sINIT 
(2) 012762 062702 000014 ADD #14,R2 ;POP SOFTWARE POINTER 
(2) 012766 000753 BR 2$ sKEEP GOING 
(2) 012770 011662 000002 4$: MOV (SP),2CR2) sGET VECTOR ADDRESS 
(2) 012774 162762 000010 000002 SUB #10,2(R2) sPOINT BACK TO THE CORRECT VECTOR 
(2) 013002 042762 000007 000002 BIC #7,2(R2) ;CLEAR JUNK 
(2) 013010 022626 POP2SP sPOP IOT JUNK OFF STACK 
(2) 013012 012716 012760 MOV #3$,(SP) ;SET FOR RETURN 
(2) 013016 000002 RTI 
(2) 013020 013737 001502 001304 53: MOV DZVCO, $VECT1 sCOPY VECTOR OF FIRST DEVICE INTO ETABLE 
(2) 013026 012737 005122 000020 MOV #.SCOPE,IOTVEC ;RESTORE THE SCOPE TRAP 
ai 013034 000207 RTS PC sALL DONE WITH “AUTO SIZING” 
(2) 3; -- END 0 MACRO -=22ssse22e22222225 
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000004 
012737 


012737 


000001 


013226 
013214 
000340 
013076 
002042 


013120 
002046 


013142 
002056 


013164 
002062 


000006 
000006 





001362 


001362 


001362 
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SEQ 64 
CZOZA 0Z11 DEVICE DIAGNOSTICS. 


3 -SUNIBUS-22sseseseeneasasanzacesesss-sess 
3 -$XZ-sesessessesesssesssesssess222 
peeeseseeeceseaecesenagce TEST 1 seeeneessacenssccsesecassesecs 
s*THIS TEST PROVES THE SLAVE SYNC RESPONSE 
s*DURING A READ OR WRITE TO THE FOLLOWING ADDRESS: 


34 DZCSR, OZRBUF, genagee  snatnan 
; - -Sesssessessaesesaessassaaasss22 
3:@ TEST 1 
£5 2900644600666 6464606064646 66 06444666 46646646 066 660606460646 664600064660444604644408 
TST1: SCOPE 
MOV #1,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
3s -- END O MACRO =seeseeeueeeeezeec2 
MOV @TST2,NEXT sPOINT TO THE START OF THE NEXT TEST 
MOV $53,4 sSET TRAP VECTOR 
MOV oPR7.6 sSET PRIORITY TO LEVEL 7 
MOV #1$,LOCK ;SET RETURN IF SwWO9=11 
1$: MOV DZCSR,RO ;SET ADDRESS TO TEST 
MOV CRO),R1 sREAD THE ADORESS 
NOP sWASTE TIME 
CLR (RO) sWRITE THE ADDRESS 
NOP sWASTE TIME 
MOV #2$,LOCK sSET RETURN ADDRESS FOR SWO9 
2s: MOV OZRBUF ,RO sSET ADDRESS TO TEST 
se CRO),R1 s;READ THE ADDRESS 
3 
CLR (RO) sWRITE THE ADDRESS 
NOP sWASTE TIME 
MOV #3$,LOCK 3SET RETURN ADDRESS FOR SWO9 
33: MOV DZTCR,RO ;SET ADDRESS TO TEST 
a C(RO),R1 ;READ THE ADDRESS 
ae (RO) sWRITE THE ADDRESS 
MOV 04% ,LOCK sSET RETURN ADDRESS 
4$: MOV DZMSR,RO ;SET ADDRESS TO TEST 
a CRO),R1 ;READ FROM ADDRESS 
a CRO) sWRITE THE ADDRESS 
é 
ay! a sSET TRAP CATCHER BACK TO NORMAL 
1 
ADVANCE ;SCOPE THIS TEST 
S$: MOV (SP),R1 sSAVE PC OF TRAP 
CMP (SP)+,(SP)+ ;POP TRAP OFF STACK 
ERROR 1 :#NO SLAVE SYNC RESPONSE. 
SCOP1 3SWO9=1? 


JMP (R1) sRTI 
3s -- END O MACRO 222esseeneeeee2en22 
3 -$XZ-sesssessessssazsssssssessssses 
peeeeseseesesescessececeases TEST 2 £66466466466064606660060046000460046 
s*THIS TEST PROVES THAT BIT “DCLR” 
;*#CAN BE SET AND THAT IT WILL CLEAR 
;*#BY ITSELF AFTER A PERIOD OF TIME. 


3 -$XZ-sssssssesasasassssseseessases 
3:# TEST 2 
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000004 
012737 


012737 
013700 
012705 
010510 


000004 
012737 


012737 


000002 


013312 
002042 
000020 


000003 


013404 
002042 
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001122 
001360 


001122 
001360 





CZDZA 0211 DEVICE DIAGNOSTICS. 


$$ 860666666666 6666666068 $6 66 0606666660606 066646066 0006460660660606866688 


TST2: SCOPE 
MOV #2, $TSTNM s;LOAD THE NUMBER OF THIS TEST 
3 -- END 0 MACRO se2seeeeeeeusse22228 
@TST3,NEXT sPOZINT TO THE START OF THE NEXT TEST 
MOV DOZCSR,RO ;SET POINTER 
MOV #ocLR, sSET DOCLR 
MOV RS,CRO) ;WRITE OCLR INTO OZCSR 
MOV CRO) ,R4 sREAD BACK DZCSR 
CMP RS ,R4 s0ZCSR OK? 
BEQ 1$ sIF IT IS SET SKIP THE ERROR CALL 


ERROR 2 s#0CLR SHOULD BE SET. . MOMENTARILY 
sNOW LETS WATCH IT DISAPPEAR 


1$: CLR Re sSET COUNTER TO 0 
CLR RS sSET EXPECTED TO 0 
CLR R3 sDUAL LOOP COUNTER 
2$: MOV CRO) ,.R4 sIS OCLR CLEAR? 
BEQ 33 sIF YES , GO TO THE NEXT TEST 
INC R3 sIF NO,COUNT 1 OF 65535 TICKS 
sTHE WORD CREATED BY THE IMMEDIATE 0 WILL BE 
sTHE COUNTER 
BNE 2$ sHAS THE TIME EXPIRED? IF NO, GO TEST BIT AGAIN 
DEC R2 sHAS THE TOTAL TIME EXPIRED? 
BNE * 2$ sIF NO, CHECK THE BIT AGAIN 
- ERROR 2 s#DCLR FAILED TO CLEAR 


: fm - pertain oe ee ea te ge oa 
;- “See eeesessesssssesseessssasss 
peeeassrsesesaceaseseacas TEST 3 seeeeesesecesesesessesecaceace 
s#TEST TO VERIFY THAT BIT “MAINT” CAN 
3#BE SET. THEN VERIFY THAT BIT “MAINT” CAN 
s#BE CLEARED (WRITTEN TO A ZERO). AND FINALLY 
s#VERIFY THAT AFTER BEING SET AGAIN IT CAN BE 
s#CLEARED BY A “DEVICE CLEAR” 


3 -$XZ-ssesesesessesesesssssesssases 


3:@ TEST 3 
35 4086 04604606466 64666060666 664606 040466646606 60666460466600606046006464606464646 4464604008 
TST3: SCOPE 
MOV 63, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
;-- END 0 MACRO se2eseseereesee88228 
MOV @TST4,NEXT sPOINT TO THE START OF THE NEXT TEST 
MOV DZCSR,RO sGET BASE ADDRESS 
MOV @MAINT ,RS sSET BIT 
MOV RS,CRO) sSET SET IN DEVICE 
MOV CRO) ,R4 ;READ THE BIT FROM DEVICE 
CMP RS,R4 sWAS BIT SET? 
BEQ 1$ :;BR IF YES 
ERROR 2 s#BIT R/W FAILURE 
1$: BIC RS,CRO) sCLEAR THE BIT. 
MOV CRO) ,R4 sREAD DEVICE 
BEQ 2s 3BR IF BITS WERE CLEARED. 
MOV RS, -(SP) sSAVE THE BIT 
CLR RS sSET EXPECTED RESULTS TO 0 
ERROR 2 s@BIT FAILED TO CLEAR 
MOV (SP)+,RS sRESTORE THE BIT. 
23: MOV RS,CRO) sSET THE BIT AGAIN 
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(2) 013372 


(6) 013404 
(4) 013406 


(4) 013414 
(2) 013422 
(2) 013426 
(2) 013432 
C2) 013434 
(2) 013436 
(2) 013440 
(2) 013442 
(2) 013444 
(2) 013446 
C2) 013450 
(2) 013452 
(2) 013454 
(2) 013456 
C2) 013460 
C2) 013462 
C2) 013464 
(2) 013466 
(2) 013470 
(2) 013472 
(2) 013474 
(2) 013476 
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000004 
0127: 


012737 
013700 
012705 
010510 
011004 
020504 
001401 
104002 
040510 
011004 
001404 
010546 
005005 
104002 
012605 
010510 
104413 
011004 
001402 
005005 
104002 





000004 


013476 
002042 
000040 





001122 
001360 





CZDZA 0Z11 DEVICE DIAGNOSTICS. 


DEVICE .CLR sISSUE DEVICE CLEAR 

MOV (RO) ,R4 sREAD THE BIT. 

BEQ 33 sBR IF BIT CLEARED BY INIT (DEVICE CLEAR) 
CLR RS sSET EXPECTED TO ZERO 

ERROR 2 s*BIT NOT CLEARED BY DEVICE CLEAR 


33: 
3 -- END O MACRO «2es2eseee2een2e228 
s -- END 0 MACRO es2e2eeeesen2e2en02 


3 -$MRRW-eeeceeeacssssssseesesaeszesssssss2s 


3 -$XZ-sesssseasszssaesssssesesessss 


pebeesesssssassssseceasae TEST 4 seeeaeeeearareeesseeesseeeenes 


s#TEST TO VERIFY THAT BIT “MSENAB” CAN 

3*BE SET. THEN VERIFY THAT BIT “MSENAB” CAN 
3#BE CLEARED (WRITTEN TO A ZERO). AND FINALLY 
s#VERIFY THAT AFTER BEING SET AGAIN IT CAN BE 
s*#CLEARED BY A “DEVICE CLEAR” 


; -$XZ-seeesecsseeseesssssseessss222 


3:@ TEST 4 
Fo SSO SSSSSEAESEEAKEAESEEAAKESEAAREREKEEAKAASESEAARELAAEARERERELRERE 
TST4: he 
64,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
3; -- END '* ‘acm Sesseseeaeeesseeeas 
MOV @TSTS,NEXT sPOINT TO THE START OF THE NEXT TEST 
MOV DZCSR.RO 3GET BASE ADDRESS 
MOV @MSENAB,RS ;SET BIT 
MOV R5,(RO) sSET SET IN DEVICE 
MOV CRO) ,R4 sREAD THE BIT FROM DEVICE 
CMP R5,R4 sWAS BIT SET? 
BEQ 1$ ;BR IF YES 
ERROR 2 :*#BIT R/W FAILURE 
1$; BIC R5,CRO) s;CLEAR THE BIT. 
MOV CRO),R4 sREAD DEVICE 
BEQ 2s 3BR IF BITS WERE CLEARED. 
MOV RS,-(SP) sSAVE THE BIT 
CLR R5 ;SET EXPECTED RESULTS TO 0 
ERROR 2 ;#BIT FAILED TO CLEAR 
MOV (SP)+,R5 sRESTORE THE BIT. 
2s: MOV R5,CRO) ;SET THE BIT AGAIN 
DEVICE .CLR sISSUVE DEVICE CLEAR 
MOV CRO) ,R4 sREAD THE BIT. 
BEQ 3$ 3BR IF BIT CLEARED BY INIT (DEVICE CLEAR) 
CLR RS ;SET EXPECTED TO ZERO 
. ERROR 2 ;*BIT NOT CLEARED BY DEVICE CLEAR 
$: 


3; -- END O MACRO 2222ss2222222222222 
3s -- END O MACRO #=22222s2sses2e22222 
, -$XZ-ssszseseezzessesesese22e229522 


peeh ee ee ee eeeeessseeseeee TEST 5 see ebeedbes bese esse seb shehaeace 


s*TEST TO VERIFY THAT BIT “SILOEN” CAN 

3#BE SET. THEN VERIFY THAT BIT “SILOEN” CAN 
;*#BE CLEARED (WRITTEN TO A ZERO). AND FINALLY 
s#VERIFY THAT AFTER BEING SET AGAIN IT CAN BE 
s#CLEARED BY A “DEVICE CLEAR” 


; -$XZ-ss2ssseeesaczseeesssssssss223 
3:@ TEST 5 





-$MRRW-s222s2seseseeseeeceseeeeeeese22e2=22 
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(7) 
(6) 


013476 
013500 


013506 
013514 
013520 
013524 
013526 
013530 
023532 
013534 
0:3536 
013540 
013542 
013544 
013546 
013550 
013552 
013554 
01355€ 
013560 
013562 
013564 
013566 
013570 


013570 
013572 


013600 
013606 
013612 
013616 
013620 
013622 
013624 
013626 
013630 
013632 
013634 
013636 
013640 
013642 











SEQ 67 
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000004 
012737 


012737 
013700 
012705 
010510 
011004 
020504 
001401 
104002 
040510 
011004 
001404 
010546 
005005 
104002 
012605 
010510 
104413 
011004 
001402 
005005 
104002 


000004 
012737 


012737 
013700 
012705 
010510 
011004 
020504 
001401 
104002 
040510 
011004 
001404 
010546 
005005 
104002 


000005 


013570 
002042 
010000 


000006 


013662 
002042 
000100 


001122 
001360 


001122 
001360 


CZ0ZA 0Z11 DEVICE DIAGNOSTICS. 


FP POHEKAAKAKSKASHHAEHHEAEEEEEEESAREKEAEAEEERERAAESEEEEEEEEEEEREDSE 


TSTS: SCOPE 


MOV 05, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
3 -- END O MACRO s222eeeenencee22228 
MOV @TST6,NEXT sPOINT TO THE START OF THE NEXT TEST 
MOV DZCSR,RO sGET BASE ADDRESS 
MOV @SILOEN,RS :SET BIT 
MOV RS,CRO) ;SET SET IN DEVICE 
MOV CRO),R4 sREAD THE BIT FROM DEVICE 
CMP RS,R4 sWAS BIT SET? 
BEQ 1$ ;B8R IF YES 
ERROR 2 s*#BIT R/W FAILURE 
1$: BIC R5,CRO) ;CLEAR THE BIT. 
MOV CRO) ,R4 sREAD DEVICE 
BEQ es 3;BR IF BITS WERE CLEARED. 
MOV R5,-CSP) sSAVE THE BIT 
CLR RS ;SET EXPECTED RESULTS TO 0 
ERROR 2 ;#BIT FAILED TO CLEAR 
MOV (SP)+,RS sRESTORE THE BIT. 
2s: MOV R5,C(RO) ;SET THE BIT AGAIN 
DEVICE.CLR sISSUE DEVICE CLEAR 
MOV CRO) ,.R4 sREAD THE BIT. 
BEQ 3$ ;BR IF BIT CLEARED BY INIT (DEVICE CLEAR) 
CLR R5 ;SET EXPECTED TO ZERO 
5 ERROR 2 3*BIT NOT CLEARED BY DEVICE CLEAR 
$: 


3 -- END O MACRO =22222e22eee2e22222 
: -- END O MACRO 2=22222222222-22222 


3 -$MRRW-s=<<2esseeceneesseesseeeeens222252= 
: -$XZ-sseeeseeceseeeseeeseeees2e222 
PeeP ETOP eer eret eri rit it? Mista Merit TTT TTT TTT ITT TT TTT TTT TTT TTT 
;*TEST TO VERIFY THAT BIT “RIE” CAN 

;*#BE SET. THEN VERIFY THAT BIT “RIE” CAN 

;#BE CLEARED CWRITTEN TO A ZERO). AND FINALLY 

;*VERIFY THAT AFTER BEING SET AGAIN IT CAN BE 

s#CLEARED BY A “DEVICE CLEAR” 


FH -$XZ-sssseeesseeesszesessee2ee2222 


3:@ TEST 6 
FF SASS ESASEEASEKASREAEAEARARASASEARAKEREEBASE HAASE AKESEAARAREAEES 
TST6: SCOPE 
MOV #6,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
3 -- END O MACRO 2222222222022 222222 
MOV #TST7,NEXT sPOINT TO THE START OF THE NEXT TEST 
MOV DZCSR,RO ;GET BASE ADDRESS 
MOV @RIE,RS ;SET BIT 
MOV R5,CRO) sSET SET IN DEVICE 
MOV CRO) ,R4 ;READ THE BIT FROM DEVICE 
CMP R5,R4 sWAS BIT SET? 
BEQ 1$ :BR IF YES 
ERROR 2 :*#BIT R/W FAILURE 
1$: BIC R5,(RO) ;CLEAR THE BIT. 
MOV (RO) ,R4 sREAD DEVICE 
BEQ 2s ;BR IF BITS WERE CLEARED. 
MOV R5,-(SP) sSAVE THE BIT 
CLR R5 ;SET EXPECTED RESULTS TO 0 
ERROR 2 ;#BIT FAILED TO CLEAR 
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(2) 013644 
(2) 013646 
(2) 013650 
(2) 013652 
(2) 013654 
(2) 013656 
(2) 013660 
(2) 013662 


(6) 013662 
(4) 013664 


(4) 013672 
(2) 013700 
(2) 013704 
(2) 013710 
(2) 013712 
(2) 013714 
(2) 013716 
(2) 013720 
(23 013722 
(2) 013724 
(2) 013726 
(2) 013730 
(2) 013732 
(2) 013734 
(2) 013736 
(2) 013740 
(2) 013742 
(2) 013744 
(2) 013746 
(2) 013750 
(2) 013752 
(2) 013754 
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012605 
010510 
104413 
011004 
001402 
005005 
104002 


000004 
012737 


012737 
013700 
012705 
010510 
011004 
020504 
001401 
104002 
040510 
011004 
001404 
010546 
005005 
104002 
012605 
010510 
104413 
011004 
001402 
005005 
104002 


000007 


013754 
002042 
040000 





001122 
001360 


CZDZA 0Z11 DEVICE DIAGNOSTICS. 


MOV (SP)+,R5 sRESTORE THE BIT. 
2s: MOV RS,CRO) sSET THE BIT AGAIN 
DEVICE .CLR sISSUE DEVICE CLEAR 
MOV (RO) ,R4 sREAD THE BIT. 
BEQ 3$ sBR IF BIT CLEARED BY INIT (DEVICE CLEAR) 
CLR RS sSET EXPECTED TO ZERO 
ERROR 2 ;*BIT NOT CLEARED BY DEVICE CLEAR 


33; 
3 -- END O MACRO 2222222e22222222222 
3 -- END O MACRO =2222s222ece2222022 


3 -$XZ-seesesceseessessseseessese222 


peehbassseeeaseaaaeceseee TEST 7 seb eeaeseeeeeeeeese bese eeeeees 


s#TEST TO VERIFY THAT BIT “TIE” CAN 

3*BE SET. THEN VERIFY THAT BIT “TIE” CAN 

3#BE CLEARED (WRITTEN TO A ZERO). AND FINALLY 
s#VERIFY THAT AFTER BEING SET AGAIN IT CAN BE 





s#CLEARED BY A “DEVICE CLEAR” 


3:@ TEST 7 


3 Ff SERAEAEAERAEAEEAAASSEEEEAEEERERAREREAAAARAAEARASERERARERAAEAAAEES 


TST7: SCOPE 
MOV &7,$TSTNM 


3 -- END O MACRO s2222222e2e222222222 
MOV 


#TST10,NEXT 
MOV DZCSR, RO 


MOV OTIE RS SET BIT 


MOV RS,CRO) 
MOV (RO) ,R4 


CMP RS,R4 
BEQ 1$ 
ERROR 2 
1$: BIC RS,CRO) 
MOV CRO) ,.R4 
BEQ 2s 
MOV RS, -(SP) 
CLR RS 
ERROR 2 
MOV CSP)+,R5 
2s: MOV RS5,CRO) 
DEVICE .CLR 
MOV CRO) ,R4 
BEQ 3$ 
CLR RS 
ERROR 2 


3$: 


3; -- END O MACRO 222222-s222s2222222 
3: -- END 0 MACRO 2222222222sese2e222 


peehebeeeeeeeesecesceeeee TEST 10 shee ed ee cece eee eee ee ee eebeseea 
s*#THIS TESTS THAT ALL OF THE FOLLOWING 
;*BITS CAN BE: SET, CLEARED, CLEARED BY “DEVICE CLEAR ” 


;*BITS TESTED ARE: 


s* TCRO, TCR1, TCR2, TCR3, TCR4, TCRS, TCR6, TCR7 













: -$XZ-s22essaseeceseesessesessee222 


sLOAD THE NUMBER OF THIS TEST 


sPOINT TO THE START OF THE NEXT TEST 
sGET BASE ADDRESS 


sSET SET IN DEVICE 

sREAD THE BIT FROM DEVICE 

sWAS BIT SET? 

;BR IF YES 

3*BIT R/W FAILURE 

;CLEAR THE BIT. 

sREAD DEVICE 

;BR IF BITS WERE CLEARED. 

;SAVE THE BIT 

;SET EXPECTED RESULTS TO 0 

;*BIT FAILED TO CLEAR 

sRESTORE THE BIT. 

;SET THE BIT AGAIN 

sISSUE DEVICE CLEAR 

;READ THE BIT. 

;BR IF BIT CLEARED BY INIT (DEVICE CLEAR) © 
sSET EXPECTED TO ZERO 

;*BIT NOT CLEARED BY DEVICE CLEAR 


3 -$7CR-s2ss22sseseseseeseseeeeeeeeeessee222e2222222 


: -$XZ-s2seseeesessseseeesseseeeee22 


3 -$XZ-sseses2eecsssesserssessesess= 
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013754 
013756 


013764 
013772 
013776 
014002 
014010 
014012 
014014 
024020 
014022 
014024 
014026 
014030 
014032 
014036 
014040 
014042 
014044 
014046 
014050 
014052 
014054 
014056 
014060 
014064 
014066 
014070 
014072 
014074 
014076 
014100 
014102 
014104 
014106 


000004 
012737 
012737 
013700 
012705 
012737 
010510 
011004 
042704 
020504 
001401 
104002 
040510 
011004 
042704 
005704 
001404 
010546 
005005 
104002 
012605 
010510 
104413 
011004 
042704 
005704 
001404 
010546 
005005 
104002 
012605 
104401 
106305 
001341 
005037 


le ee ee ae ee ee ee ee ee | 


sh ael ael aul antl ant anl anl ael aul onl anh onl anh anl anl aol onl ani and and and acl onl aol el ol a oh ol kL i i 


SSG GG GG GGG GPG GDI GDP GGG GGG GPG GGG GG YY YY BY VU UU 


014112 
014114 


014122 
014130 
014134 


000004 
012737 


012737 
013700 
012705 


AARARAARAAAARARAARARARAAARARARARAAAAMAAM ACN 


rPRAWWUIOWI Re eee wf © 
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000010 
014112 
002056 


000001 
014010 


177400 


177400 


177400 


001362 


000011 


014274 
002056 
000400 


001122 
001360 


001362 


001122 
001360 


TST10: 


SCOPE 


MOV 
s -- END en 


1$: 


2s: 


3$: 


4$: 


CLR 
; -- END O MACRO 


MOV 
DEVICE .C 
MOV 
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CZOZA 0Z11 DEVICE DIAGNOSTICS. 


TEST 10 
$F FRAAARAAEEAEEEREEAEEEAEAAREAEAEAEEAAAREEAREREAEAARERAAALEREALES 


#10, $TSTNM 


sLOAD THE NUMBER OF THIS TEST 


@TST11,NEXT 
DZTCR,RO 
#TCRO,RS 
#1$,LOCK 
R5,CRO) 
CRO) ,R4 
#tC<377>,R4 
RS ,R4 

2s 

2 

RS5,CRO) 
CRO) ,R4 
#t0<377>,R4 


RS,CRO) 
LR 2 

CRO) ,R4 
@tC<377>,R4 


(SP)+,R5 


RS 
1$ 
LOCK 


sPOINT TO THE START OF THE NEXT TEST 
sSET DEVICE ADDRESS 

sSET EXPECTED RESULTS 
3SET FOR SWO9 

;SET THE BIT 

;READ THE BIT FROM THE DEVICE 
;CLEAR HIGH BYTE 

sWAS BIT OK? 

;BR IF YES 

;*BIT FAILED TO SET. 
;CLEAR THE BIT 

sREAD THE REGISTER 
;CLEAR HIGH BYTE 

sBITS CLEAR? 

3;BR IF YES 

s;SAVE GOOD RESULTS 

;SET EXPECTED TO 0 
;*REPORT BIT NOT CLEAR 
sRESTORE R5 

;SET THE BIT AGAIN. 
sISSUE DEVICE CLEAR 
sREAD THE REGISTER 
;CLEAR HIGH BYTE 

sBITS CLEAR? 

3;BR IF YES 

;SAVE GOOD RESULTS 

;SET EXPECTED TO 0 
;*#REPORT BIT NOT CLEAR 
sRESTORE RS 

sLOCK ON BIT? SET SWO9=1 
sCHANGE TO NEXT BIT 
sCONTINUE TESTING 

sMAKE SURE TIGHT LOOP IS CLEANED UP 


3 -$7CR-sss2sssesscceseeeessesseeee22222s222sse22= 


3 -$XZ-ssssssseeeeesseees5ese5522252 


peeeeeeheeseeeeseeeececee TEST 11 sete ee ce cece ee be cc ceaek beac eease 





s#THIS TESTS THAT ALL OF THE FOLLOWING 

+*BITS CAN BE: SET, CLEARED, CLEARED BY “RESET INSTR *NOT* DEVICE CLEAR ” 
;*BITS TESTED ARE: 

;* DTRO, DTR1, DTR2, DTR3, OTR4, DIRS, OTR6, DTR7 

s*#THIS TEST IS NOT DONE IF MODULE IS 20MA VERSION 


; -$XZ-ssseseeseseseeessessssee22222 


3:# TEST 11 
5p RERRAEAAARERARAKEAAAEAEAREAEEARAAEEREAAEAEAEAAAKARAAAEAERAALEEE RES 
TST11: SCOPE ; 
MOV #11, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
3; -- END O MACRO =22222ss22222222222 
MOV #TST12,NEXT ;POINT TO THE START OF THE NEXT TEST 
MOV DZTCR,RO ;SET DEVICE ADDRESS 
MOV #DTRO,RS ;SET EXPECTED RESULTS 





CZ0zA-1I0 
CZOZAI.Pil 
(1) 014140 
(1) 014146 
(1) 014152 
(1) 014154 
(1) 014156 
(1) 014160 
(1) 014162 
(1) 014164 
(1) 014166 
(1) 014170 
(1) 014172 
(1) 014174 
(1) 014176 
(1) 014200 
(1) 014202 
Ci) 014204 
Ci) 014206 
(1) 014210 
(1) 014212 
(1) 014214 
(1) 014216 
(1) 014220 
(1) 014222 
(1) 014224 
(1) 014226 
(1) 014230 
(1) 014232 
(1) 014234 
(1) 014236 
(1) 014240 
(1) 014244 
(1) 014246 
(1) 014252 
(1) 014254 
(1) 014256 
(1) 014260 
(1) 014262 
(1) 014264 
(1) 014266 
(1) 014270 
(1) 
8683 
(2) 
(3) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(3) 
(6) 
(5S) 014274 
(3) 
(3) 











SS 
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012737 014156 001362 
105737 001414 
100001 

104400 

010510 

011004 

105004 

020504 

001401 

104002 

040510 

011004 

105004 

005704 

001404 

010546 

005005 

104002 

012605 

010510 

104413 

011004 

105004 

030510 

001001 

104002 

104401 

006305 

001347 

012710 177400 
005005 

005227 000000 
001375 

000005 

011004 

105004 

005704 

001401 

104002 

005037 001362 


000004 


014276 012737 000012 001122 


SEQ 70 
CZDZA 0Z11 DEVICE DIAGNOSTICS. 
MOV #1$,LOCK sSET FOR SWO9 
TSTB EIAFLG s20MA OR EIA 
BPL 1$ ;BR IF EIA 
ADVANCE sEXIT TEST 
1$; MOV RS, CRO) sSET THE BIT 
MOV CRO) ,R4 sREAD THE BIT FROM THE DEVICE 
CLRB R4 sCLEAR LOW BYTE 
CMP RS ,R4 sWAS BIT OK? 
BEQ 2s sBR IF YES 
ERROR 2 s#BIT FAILED TO SET. 
2s: BIC R5,CRO) sCLEAR THE BIT 
MOV (RO) ,R4 sREAD THE REGISTER 
CLRB R4 sCLEAR LOW BYTE 
TST R4 sBITS CLEAR? 
BEQ 3$ :BR IF YES 
MOV RS,-CSP) sSAVE GOOD RESULTS ? 
CLR RS sSET EXPECTED TO 0 
ERROR 2 s#REPORT BIT NOT CLEAR 
MOV (SP)+,R5 sRESTORE RS 
3$: MOV RS,CRO) sSET THE BIT AGAIN. 
DEVICE .CLR sISSUE DEVICE CLEAR 
MOV (RO) ,R4 sREAD THE REGISTER 
CLRB R4 sCLEAR LOW BYTE 
BIT RS,CRO) sWAS BIT CLEARED BY DEVICE.CLR? 
BNE 4s sBR IF NO CIT SHOULON’T BE CLEAR) 
ERROR 2 . s*BIT CLEARED BY DEVICE.CLR 
4$: SCOP1 sLOCK ON BIT? SWO9=1 
ASL RS sCHANGE TO NEXT BIT 
BNE 1$ ;IF NOT DONE LOOP 
MOV #177400, (RO) sSET ALL DTR BITS 
CLR RS sCLEAR LOCATION FOR ERROR PRINTOUT 
S$: INC #0 sACT DELAY LOOP FOR 
BNE 5$ sRESET INSTRUCTION 
RESET sISSUE A BUS INIT 
MOV (RO) ,R4 sREAD REGISTER 
CLRB R4 s;CLEAR LOW BYTE 
TST R4 sDTR BITS CLEAR? 
BEQ +4 sIF YES CONTINUE 
ERROR 2 sIF NO PRINT ERROR 
CLR LOCK sMAKE SURE TIGHT LOOP IS CLEANED UP 


3; -- END O MACRO =222=222s2s222222= 


3 $MRR-ss2sseseseseeeeeee2222222eeeee5222222- 
3 -$XZ-sessssseeeseeeseesee22222222=2 
peek eheeeeseeeeeeeseaeeae TEST 12 SERRE AEARAAEAAAAAEAAKEEERAEKAKSE 
s*#THIS TEST PERFORMS RESET TESTING & 
s*TESTING OF WRITE ONLY OR READ ONLY BIT 
s* TEST BITS “ROONE, BIT11, BIT10, BIT9, BITS, BIT2, BIT1 


i* BITO, SILOAL” ARE READ ONLY AND THAT TROY IS 
3* ZERO UNTIL A LINE IS SELECTED AND MSENAB IS SET. 
3* 
3 -$XZ-sessesssseeesezeeee2eeeeee222 
s:# TEST 12 
5 FARRER AEREEEAEEAEAEAARAREAEAEAEAAEAERAREAAAAREREAAEAA SERRA AKELS 
TST12: SCOPE 


MOV #12, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
; -- END O MACRO ==2==s2s<2s2s2ss2=2222- 





CZ0ZA-10 
CZDZAI.P11 


~ 
w 
~ 


oe 1 oe ae oe tat 
oo ee pe he pe pe pe 


ett eh hh hhh eee 


TT Te ee ee ee ee ee ee ee ee ee tee ee eel 
be ee be pe pe pe pe pe pe pe pe pe pe pe pe 


8684 


014304 
014312 
014316 
014320 


014324 
014326 
014330 
014332 
014336 
014340 
014342 
014344 
014350 
014354 
014362 
014366 
014372 
014374 
014376 
014400 
014402 
014404 
014406 
014410 
014412 
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02-JUL-85 16:1 
caaoer 001360 


012737 
013700 
005005 
012710 


011004 
001401 
104002 
012710 
011004 
001401 
104002 
012705 
005077 
052777 
052710 
052705 
005002 
011004 
020504 
001404 
104414 
005202 
001372 
104002 


000004 
012737 


012737 
104413 
013700 
012710 
012705 
011004 
020405 
001401 
104002 
105010 
105005 
011004 
020405 
001401 


00204, 
027607 


100000 


100000 
165476 
000001 
000040 
000040 


000013 
014542 
002042 


177757 
050150 





a 


165474 


001122 
001364, 


CZOZA 0Z11 DEVICE DIAGNOSTICS. 


MOV @TST13,NEXT sPOINT TO THE START OF THE NEXT TEST 

MOV DZCSR,RO sSET ADDRESS TO RO 

CLR RS sSET EXPECTED TO 0 

MOV @RDONE +BIT11+B1110+B1T9+8118+B1T2+BIT1+BITO+SILOAL, CRO) 
sWRITE THE BITS 


MOV CRO) ,R4 sREAD BACK THE BITS 
BEQ 1$ ;BR IF NONE ARE SET. 
ERROR e +*BITS WERE SET. 
1$: MOV #TRDY, CRO) sATTEMPT TO WRITE TRDY 
MOV (RO) ,R4 sREAD TROY 
BEQ 2$ :BR IF NOT SET 
ERROR 2 3* 
2s: MOV #TROY,RS ;SET EXPECTED BIT 
CLR @DZLPR ;LOAD LINE 0 
BIS #TCRO,@DZTCR ;SET TCR BIT 
BIS @#MSENAB, (RO) 3 
BIS #MSENAB,RS ;SET SCAN ENABLE 
CLR R2 ;SET COUNTER TO ZERO 
3$: MOV CRO) ,R4 sREAD THE REGISTER 
CMP R5S,R4 sBIT SET? 
BEQ 4$ ;BR IF YES 
DELAY sSTALL TIME 
INC R2 ;UPDATE COUNTER 
BNE 3$ ;BR IF COUNTER NOT DONE. 
P ERROR 2 +*TRDY NOT SET! 
$: 


; -- END O MACRO see grip ytateipenicienyge 
3 - ~SSStsseesesseeeseeseeeseeszesssess 
peeheeeheheeeheeeeeeeeeee TEST 13 shee ce ae cece cece ee eee eee ee ce 
s*#THIS TEST PERFORMS RESET TESTING AND 
; # TESTING OF READ ONLY AND WRITE ONLY BITS 
;* IN REGISTER DZCSR 
s#VERTFY THAT “TIE”, “SILOEN”, “RIE”, “MSENAB”, “MAINT” 
; #ARE THE ONLY R/W BITS IN THE DZCSR. 
s#THEN VERIFY THAT A RESET WILL CLEAR THESE BITS 
s*THIS TEST ALSO CHECKS BYTE OPERATIONS ON THE CSR 


; -$XZ-sesesseceseseeeeeeeeee2e55222 


3:® TEST 13 
5 § SR EREEAAREEEAEEAAEEEAEEARAREAAEAEARARAREAAAAAARREAAKEARAKERAKEA 
TST13: SCOPE 
MOV #13, $TSTNM sLOAD THE NUMBER OF THIS TEST 
; -- END O MACRO *22=2sssss2s2222222- 
MOV #TST14,NEXT sPOINT TO THE START OF THE NEXT TEST 
DEVICE .CLR 
MOV DZCSR,RO ;SET UP FOR ERROR MESSAGE 
MOV #tC<DCLR>, (RO) ;TRY TO WRITE 
MOV #TIE !SILOEN!RIE!MSENAB !MAINT, RS ;MAKE EXPECTED 
MOV CRO) ,R4 sACTUAL 
CMP R4, RS sCMP EXPECTED VS ACTUAL 
BEQ 1$ YES 
ERROR 2 ;*NO 
1$: CLRB CRO) ;CLEAR LOWER BYTE OF CSR 
CLRB R5 ;SET EXPECTED 
MOV CRO) ,R4 sREAD CSR BITS 
CMP R4,R5 sCOMPARE ACTUAL TO EXPECTED 
BEQ 3$ sBRANCH IF SAME 
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8707 014470 104002 ERROR 2 sOTHERWISE PRINT ERROR 
8708 014472 012710 177757 3$; MOV @tC<DCLR>,(RO) ;RESET CSR BITS 
8709 014476 105077 165342 CLRB @HDZCSR ;CLEAR HIGH BYTE OF CSR 
8710 014502 012705 000150 MOV ORIE !MSENAB!MAINT,RS 
8711 sSET RS TO EXPECTED RESULTS 
8712 014506 011004 MOV CRO) ,R4 sREAD CSR 
8713 014510 020405 CMP R4,R5 sACTUAL = EXPECTED? 
8714 014512 001401 BEQ 4s sBRANCH IF SAME 
8715 014514 104002 ERROR 2 sOTHERWISE PRINTOUT ERROR 
8716 014516 012710 177757 4$: MOV #tC<DCLR>,(RO) ;RESET CSR BITS 
8717 014522 005005 CLR RS ;SET RS TO EXPECTED RESULTS 
8718 014524 005227 000000 5$: INC #0 sDELAY TIMER FOR 
8719 014530 001375 BNE 5$ sACT-11 COMPATIBILITY 
8720 014532 000005 RESET sISSUE BUS INIT 
8721 014534 011004 MOV CRO),R4 sREAD CSR REGISTER 
8722 014536 001401 BEQ 2$ ;BRANCH IF CSR IS CLEAR 
8723 014540 104002 ERROR 2 ;IF NOT PRINT ERROR 
8724 014542 2s: 
8725 3 -$MRWD-s2ssseseeeeeeeeeeeeeee22222 


(2) ; -$XZ-seseeceeeesessessezesessse222 


(3) Ree EEAEEEEALEKEEARSE REELS TEST PCr rrr ti tti tii titi tt tttttttt ttt 
(1) +*THIS TEST PERFORMS RESET TESTING AND 

(1) ;#TESTING OF READ ONLY REGISTER OZRBUF 

(1) 3*AND TESTING OF WRITE ONLY REGISTER DZLPR 

(2) g -$XZ-sssssssseseeeeese222225e22222 
(3) 3:*® TEST 14 

(6) 3 Ff RERAREKAEERAEAEAAEAARAAREREEARAREAAAARAAEAAKAREAAAEALAALERERELE 

(5) 014542 000004 TST14: SCOPE 

(3) 014544 ¢12737 000014 001122 MOV #14, $TSTNM ;LOAD THE NUMBER OF THIS TEST 

(3) 3 -- END O MACRO =2222s2s22222s22222 

(3) 014552 012737 014632 001360 MOV #TST15,.NEXT sPOINT TO THE START OF THE NEXT TEST 
(1) 014560 104413 DEVICE .CLR ;CLEAR DZ11 

(1) 014562 013700 002046 MOV DZRBUF ,RO ;SET UP FOR ERROR MESSAGE 

(1) 014566 011005 MOV CRO),RS ;SET EXPECTED 

(1) 014570 012777 177777 165254 MOV #-1,9DZLPR sTRY TO WRITE ALL 1’S 

(1) 014576 011004 MOV (RO) ,R4 sACTUAL 

(1) 014600 042705 104000 BIC #DVALID!BIT11,R5 ;DITTO 

(1) 014604 020405 CMP R4,R5 ;CMP ACTUAL VS EXPECTED 

(1) 014606 001401 BEQ 1$ IF YES,GO CONTINUE PROCESSING 

(1) 014610 104002 ERROR 2 ;*ERROR- BIT PATTERN NOT CORRECT 

(1) 014612 010403 1$: MOV R4,R3 sGET A COPY OF THE ACTUAL BIT PATTERN 
(1) 014614 005103 COM R3 sGET THE LOGICAL INVERSE OF THE BIT PATTERN 
(1) 014616 010377 165230 MOV R3,@9DZLPR sTRY TO WRITE 

(1) 014622 011004 MOV CRO) ,R4 sACTUAL 

(1) 014624 020405 CMP R4,R5 ;CMP ACTUAL VS EXPECTED 

(1) 014626 001401 BEQ 2$ ;IF YES, GET OUT OF THIS TEST 

(1) 014630 104002 ERROR 2 ;*NO 

(1) 014632 2s: 

(1) 3 -- END O MACRO 222222222s2se22e02 
8726 3 -$MRWD-ssss2eesee2ec2eeesee2222255 
(2) 3 -$XZ-sesssesesssaeees2255522525222 
(3) pekabo ekesek ke eeeeeeseeee TEST 15 shee cea b cece cece hese cheb basen 
(1) ;#THIS TEST PERFORMS RESET TESTING AND 

(1) ;* TESTING OF READ ONLY REGISTER DZMSR 

fst +*AND TESTING OF WRITE ONLY oo DZTOR 

3 -$ we BSSSessessessesesssessessssszsszszszszseszz 








CZ0ZA-10 
CZDZAI.P11 


Www 


a Da eT Te ee ee ee ee ee ee ee ee ee ee et 


ee he he he ee pe pe pe pe pe pe pe pe 
INNS YY YY 
So 
> 
oO 
“N 
~m 


014716 


(4) 014716 
(2) 014720 


(2) 014726 

(1) 014734 
8742 014742 
8743 014746 
8744 014750 
8745 014752 
8746 014756 
8747 014760 
8748 014762 
8749 014766 
8750 014772 
8751 014774 
8752 015002 








SEQ 73 
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000004 
012737 


012737 
104413 
013700 
011005 
012777 
011004 
020405 
001401 
104002 
010403 
005103 
010377 
011004 
020405 
001401 
104002 


000004 
012737 


012737 
012737 
105737 
100001 
104400 
013700 
104413 
005003 
012702 
005737 
100405 
013737 
000177 
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000015 
014716 
002062 
177777 


165160 


000016 
015112 


015006 
001414 


002062 


000001 
001370 


001360 
164120 





001122 
001360 


165200 


001122 


001360 
001362 


001126 


CZDZA 0Z11 DEVICE DIAGNOSTICS. 


s:@ TEST 15 
§ 5 RERRREEAEEEAEEEE ERA EEEEAREAAEEAEAEEEEEAEREARAREERERAE AREA REEDS 


TST1i5: SCOPE 
MOV #15, $TSTNM sLOAD THE NUMBER OF THIS TEST 
3 -- END O MACRO =2222s2eee2e2222222 
MOV ee NEXT sPOINT TO THE START OF THE NEXT TEST 


DEVICE .CLR sCLEAR 0211 
MOV DZMSR,RO sSET UP FOR ERROR MESSAGE 
MOV (RO),RS sSET EXPECTED 
MOV #-1, 80ZTOR sTRY TO WRITE ALL 1’S 
MOV CRO) ,R4 sACTUAL 
CMP R4,RS ;CMP ACTUAL VS EXPECTED 
BEQ 1$ sIF YES,GO CONTINUE PROCESSING 
ERROR 2 s*ERROR- BIT PATTERN NOT CORRECT 
1$: MOV R4,R3 sGET A COPY OF THE ACTUAL BIT PATTERN 
COM R3 sGET THE LOGICAL INVERSE OF THE BIT PATTERN 
MOV R3,@0ZTOR sTRY TO WRITE 
MOV (RO) ,R4 sACTUAL 
CMP R4,R5 sCMP ACTUAL VS EXPECTED 
BEQ 2$ sIF YES, GET OUT OF THIS TEST 
ERROR 2 ;#NO 


2$: 
; -- END O MACRO <s=ss2s222222222222 


Fy -$XZ-ss2sessseeseseee2e2e2eeees222 
pekhbkkeeheheeeseeacaceee TEST 16 ce ee cece cece cheb eb chek hhh ehack 
s*VERIFY THAT IF WE ARE IN “STAGGERED” MODE 
3*THAT SETTING “OTR” FOR A LINE WILL 
;*BRING UP “RING” AND “CARRIER” FOR THE 
s*ASSOCIATED LINE IN WHICH WE ARE STAGGERED! 

3* LINEO DTR= LINE1 RING AND CARRIER 
+* LINE1 DTR= LINEO RING AND CARRIER 
;* LINE2 DTR= LINE3 RING AND CARRIER 
;* LINE3 DTR= LINE 4 RING AND CARRIER 
3;* ETc... 
; -$XZ-s2sssseseeneeeeeeeseseeee2222 


3:* TEST 16 
5 § RE REERERAEEEEAEE REAR ERAEEAEEAREAEEAEER RARE ERRARARREA EERE RE RE EEE 


TST16: SCOPE 


MOV #16, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
; -- END O MACRO <=sssssse2e2eee2222 
MOV #TST17,NEXT sPOINT TO THE START OF THE NEXT TEST 
MOV #1$,LOCK sUSE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
TSTB EIAFLG sEIA OR 20MA? 
BPL 10$ 3;BR IF EIA 
ADVANCE ;EXIT TEST 
10$: MOV DZMSR,RO ;SET REGISTER 
DEVICE .CLR sINIT DZi1 
CLR R3 ;ZERO LINE NUMBER 
MOV #1,R2 ;SET POINTER 
TST MODE sARE WE = B sceeees MODE? 
BMI 1$ ;YES WE A 
MOV NEXT, $LPADR ;LEAVE Tas. TEST! NOT STAGGERED 
JMP @$LPADR sEXIT 





CZ0ZA-I0 


CZ0ZAI 


8753 
8754 
8755 
8756 
8757 
8758 


Pil 


015006 
015012 
015014 
015016 
015020 
015022 
015024 
015026 
015032 
015034 
015036 
015040 
015042 
015044 
015046 
015050 
015052 
015056 
015060 
015062 
015064 
015066 
015070 
015074 
015076 
015100 
015102 
015104 
015106 
015110 


015112 
015114 


015122 
015130 
015136 
015142 
015144 
015146 
015152 
015154 
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130237 
001004 
005203 
106302 
103372 
104400 
010204 
032703 
001402 
006204 
000401 
006304 
005005 
150405 
000305 
150405 
150277 
104414 
011004 
020504 
001401 
104002 
140277 
104414 
011004 
001402 
005005 
104002 
104401 
000741 


000004 
012737 


012737 
012737 
105737 
100401 
104400 
105737 
100774 
013700 





CZDZA 0Z11 DEVICE DIAGNOSTICS. 





SEQ 74 


001364 1$: BITB R2,LINE sTEST THIS LINE? 
BNE 3$ YES 
2s: INC R3 ;LINE ¢@ 
ASLB R2 ;GET NEXT LINE 
BCC 1$ sKEEP TESTING 
ADVANCE sADVANCE THIS TEST 
3$: MOV R2,R4 sSAVE BINARY BIT FOR LINE #@ 
000001 BIT #BITO,R3 sGET STAGGERED COMPANION LINE 
BEQ as 3BR IF LINE EVEN 
ASR R4 sADJUST LINE 
BR 5$ ; 
4$: ASL R4 sADJUST LINE 
5$: CLR R5 ;SET EXPECTED 
BISB R4,R5 ; 
SWAB RS : 
BISB R4,R5 ; 
165002 BISB R2,@HDZTCR sSET OTR 
DELAY ;CABLE DELAY 
MOV (RO) ,R4 sREAD MSR REGISTER 
CMP RS,R4 30K? 
BEQ 6$ YES 
ERROR 2 +*ERROR IN RING OR CARRIER 
164764 6$: BICB R2,@HDZTCR ;CLEAR DTR 
DELAY ;CABLE DELAY 
MOV CRO) ,R4 sREAD MSR 
BEQ 7$ 3BR IF THEY CLEARED 
CLR RS ;SET EXPECTED TO 0 
ERROR 2 ;*BITS NOT CLEARED 
7$: SCOP1 ;LOCK ON SIGNAL? 
BR 2s sCONTINUE TEST 
; -$XZ-seeesesceeeseeeeeesese5222225 
pReRaaeR ER ER ERE ER EERERES TEST 17 sk ea eee ee eee ee ee se he ee heee ee 
;*TEST TO VERIFY THAT IF IN “EXTERNAL” 
+*MODE; SETTING DTR FOR SELECTED LINES 
;#WILL BRING UP “CARRIER” AND “RING” 
s*#FOR THAT SAME LINE. NOTE: IF YOU HAVE 
s*SELECTED MODE AS “EXTERNAL”; THE H325 TEST CONNECTER 
;*MUST BE USED ON ALL SPECIFIED LINES. 
s*LINES MAY BE SPECIFIED BY SWRO3=1 
+*AND SWROO=1 AT START TIME OR ALTERING 
+*#STATUS MAP. 
: -$XZ-seesesesessssssesssessesseses 
3:@ TEST 17 
2p RRRRAAARAEEEKARAEARAARAREAAEARAREARESERARAKRAREAEAAARAALAAARELELRE 
TST17: SCOPE 
000017 001122 MOV #17, $TSTNM sLOAD THE NUMBER OF THIS TEST 
; -- END O MACRO #2222222222s222222= 
015250 001360 MOV #TST20 ,NEXT sPOINT TO THE START OF THE NEXT TEST 
015164 001362 MOV #3$,LOCK sUSE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
001370 TSTB MODE sEXTERNAL? 
BMI es ;BR IF YES 
1$: ADVANCE sEXIT TEST 
001414 2s: TSTB EIAFLG ;YOU BETTER BE IN 
BMI 1$ sEIA MODE FOR THIS TEST. 
002062 MOV DZMSR,RO sSET REGISTER 





















SEQ 75 
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CZ0ZA’ .**., 02-JUL-85 16:17 CZDZA DZ11 DEVICE DIAGNOSTICS. 
8FU2 415160 012702 000001 MOV #1,R2 sSET LINE POINTER 
8e°" 915164 130237 001364 3$: BITB R2,LINE sLINE SELECTED? 
8604 015170 001003 BNE 5$ ;BR IF YES 
8805 015172 106302 4$: ASLB R2 sNEXT LINE 
8806 915174 103373 ‘ BCC 3$ sCONTINUE TEST 
8807 15176 104400 ADVANCE sADVANCE THIS TEST 
8808 ©15200 005005 5$: CLR RS ;SET EXPECTED 
8809 ©25202 150205 BISB R2,R5 ; 
8810 015204 000305 SWAB RS ; 
8811 015206 150205 BISB R2,R5 : 
8812 015210 150277 164644 BISB R2,@HDZTCR ;SET DTR 
8813 015214 104414 DELAY ;CABLE DELAY 
8814 015216 011004 MOV CRO) ,R4 sREAD MSR 
8815 015220 020504 CMP R5,R4 sBITS OK? 
8816 015222 001401 BEQ 6$ ;BR IF YES 
8817 015224 104002 ERROR 2 sCARRIER OR RING ERROR 
8818 015226 140277 164626 6$: BICB R2,@HDZTCR ;CLEAR OTR 
8819 015232 104414 DELAY s;CABLE DELAY 
8820 015234 011004 MOV CRO) ,R4 sREAD MSR 
8821 015236 001402 BEQ 7$ ;BR IF BITS CLEARED 
8822 015240 005005 CLR R5 s;CLEAR EXPECTED LOC. 
8823 015242 104002 ERROR 2 sBITS NOT CLEARED. 
8824 015244 104401 7$: SCOP1 ;LOCK ON LINE? 
oe 015246 000751 BR 4$ sCONTINUE TEST 
8827 ; -$TLINE -s=*ssseseseceseeeeesaesesezsssssss 
(2) 3 -$XZ-seseeeseseeesene2=-2522222222 
(3) peekeeseeeeesesecacasceae TEST 20 shee cece cece ee eeceee echoes oaee 
(1) s* THIS TEST VERIFIES THAT TRDY IS SET WHEN A LINE 
(1) s# IS READY TO BE LOADED, AND THAT THE LINE SPECI- 
(1) :* FIED IN BITS 8-10 OF DZCSR CORRESPOND 
(1) ;* TO THE LINE SELECTED IN DZTCR 
(2) 3 -$XZ-ssesesesesessassesessssses222 
(3) 3:* TEST 20 
(6) § 5 SRAREAEEAREAEEEEAEEERARARAAREARAEEREAAREDAAAAEREKAREAAAAREARE LES 
(5) 015250 000004 TST20: SCOPE 
(3) 015252 012737 000020 001122 MOV #20, $TSTNM sLOAD THE NUMBER OF THIS TEST 
(3) ; -- END O MACRO =2s2ssse2ese222222= 
(3) 015260 012737 015374 001360 MOV #TST21,NEXT sPOINT TO THE START OF THE NEXT TEST 
(1) 015266 104413 DEVICE.CLR sISSUE A “DEVICE CLEAR” (RESET) 
(1) 015270 013700 002042 MOV DZCSR,RO sSET POINTER 
(1) 015274 012705 100040 MOV @MSENAB!TROY,RS ;START THE EXPECTED LINE NUMBER AT 0 
(1) 015300 005037 001372 CLR SAVLIN sSET UP FOR ERROR PRINTOUTS 
(1) 015304 012702 000001 MOV #1,R2 sUSING R2 AS A BIT POINTER, POINT TO LINE 0 
(1) 015310 130237 001364 1$: BITB R2,LINE sIS THIS LINE SELECTED? 
(1) 015314 001420 BEQ 5$ ;IF NO, SKIP THE STARTUP 
(1) 015316 050277 164534 2$: BIS R2,@DZTCR sSET THE GO BIT FOR THIS LINE 
(1) 015322 052710 000040 BIS #MSENAB, CRO) sSTART THE SCANNER 
(1) 015326 005004 CLR R4 ;SET FOR DELAY 
(1) 015330 032710 100000 3$; BIT #TRDY, CRO) 3TX READY? 
(1) 015334 001004 BNE 4$ ;BR IF YES 
(1) 015336 104414 DELAY ;DELAY 
(1) 015340 005204 INC R4 ;COUNTER 
(1) 015342 001372 BNE 3$ ;BR IF <>0! 
(1) 015344 104003 ERROR 3 3*TX NOT READY! 
(1) 015346 011004 4$: MOV CRO),R4 sGET THE LINE POINTED TO BY THE SCANNER 































SEQ 76 


CZ0ZA-I0 MACY11 30A(1052) 02-JUL-85 16:19 PAGE 83-57 
CZ0ZAI.P11 02-JUL-85 16:17 CZDZA DZ1i1 DEVICE DIAGNOSTICS. 
(1) 015350 020405 CMP R4,R5 sIS THE LINE NUMBER WHAT IT SHOULD BE? 
(1) 015352 0061401 BEQ 5$ sIF YES,GO WORK ON THE NEXT LINE 
(1) 015354 104002 ERROR 2 s*#LINE NUMBER DID NOT MATCH TCR BIT 
(1) 015356 062705 000400 S$: ADD #400,R5 sPOINT TO THE NEXT EXPECTED LINE 
(1) 015362 104413 DEVICE .CLR sISSUE A “DEVICE CLEAR” (RESET) 
(1) 015364 005237 001372 INC SAVLIN sADJUST FOR NEXT LINE 
(1) 015370 106302 ASL3 R2 sPOINT TO THE NEXT LINE.ARE ALL LINES TESTED? 
(1) 015372 103346 BCC i$ sIF NOT, GO DO THE NEXT LINE 
(1) 015374 64: 
(1) 3 -- END 0 MACRO <<2eeceeeeneeee2e22 
8828 | -$XZ-seeseasesseseesesessssssee222 
(2) pehhhe he eesesesseeeasecee TEST 21 sh ease eeseeeeseeeeecareeeereae 
8829 . +*TEST TO TRANSMIT ONE CHAR AND 
8830 s*#RECEIVE ONE CHAR ON ONE LINE 
8831 s#AT A TIME. THE CHAR IS “252” AND 
8832 s#ALL SELECTED LINES WILL BE TURNED ON 
8833 s#ONE AT A TIME. THIS IS THE FIRST TIME ANY 
8834 s*#DATA IS CHECKED IN THE RECEIVER. 
8835 s*USING SWITCH NINE WITH THIS TEST CREATES A TIGHT SCOPE LOOP 
8836 s+#WHICH TRANSMITS A STEADY STREAM OF CHARACTERS. 
8837 3 -$XZ-seessesesesssssseassseeses222 
8838 ::@ TEST 21 
(5) 3 §RERREREREEAEAEAEEEAAEEARABABAREAREREEERAAEEARARAAEAAEERAREE AEDES 
(4) 015374 000004 TST21: SCOPE 
44 015376 012737 000021 001122 eS ee eee sLOAD THE NUMBER OF THIS TEST 
3; -- Saeesssesesessesez2 
(2) 015404 012737 015732 001360 MOV #TST22,NEXT sPOINT TO THE START OF THE NEXT TEST 
(1) 015412 012737 015710 001362 MOV #16$ ,LOCK sUSE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
8839 ;$LINEUP-ss2ssecesasesezecazssssaesnzss222 
(2) 3 -$MRESET-222ssssesseeeeeseeseceas2222 
(2) 015420 104417 DCLASM sCLEAR DEVICE AND SET MAINT BIT IF I MODE 
(2) 3; -- END 0 MACRO =2s2e2sseeese2222222 
(1) 015422 013701 001366 MOV PAR,R1 ;PICK UP PARAMETERS 
(1) 015426 012702 000001 MOV #1,R2 sPICK UP INIT POINTER 
(1) 015432 030237 001364 1$: BIT R2,LINE sSHOULD THIS LINE BE SET UP ? 
(1) 015436 001402 BEQ 2s 3NO 
(1) 015440 010177 164406 MOV R1i,@DZLPR sSET UP LINE PARAMETERS 
(1) 015444 005201 2s: INC R1 sPOSITION POINTER TO THE NEXT LINE 
(1) 015446 106302 ASLB R2 ;GOT ‘EM ALL ? 
(1) 015450 103370 BCC 1$ sIF NO, GO SET UP THE NEXT LINE 
(1) 015452 005037 001372 CLR SAVLIN sCLEAR LINE @ INDICATOR 
(1) 3; -- END 0 MACRO =2sse2ess2eeene22222 
8840 015456 012702 000001 MOV #1,R2 sLINE POINTER 
8841 015462 052777 000040 164352 BIS @MSENAB,@DZCSR ;START SCANNER 
8842 015470 030237 001364 3$: BIT R2,LINE sVALID LINE ? 
8843 015474 001462 BEQ 14$ sNO SET UP NEXT LINE 
8844 015476 010277 164354 MOV R2,8D0ZTCR ;SET TCR BIT 
8845 015502 032777 000200 164332 43: BIT @RDONE , ADZCSR sIS REC DONE = 0 ? 
8846 015510 001401 BEQ 5$ sIF YES, ALLOW TIME FOR TRDY TO SET 
8847 015512 104020 ERROR 20 +#REC DONE SHOULD = 0 
8848 015514 005005 5$: CLR R5 
8849 015516 032777 100000 164316 6%: BIT #TRDY,@DZCSR 
8850 015524 001004 BNE 7$ 
8851 015526 104414 DELAY 
8852 015530 105205 INCB R5 
8853 015532 001371 BNE 6$ 








CZ0ZA-10 
CZOZAI .Pil 


8854 
8855 


© & 
US 


ee ee ee ae ee ee ee hee tae te 
ee ee ee pe pe pe 
ed a he a a a 


015534 
015536 
015544 


015550 
015554 


015556 
015560 
015562 
015564 
015566 
015570 


015572 
015574 
015600 
015604 
015606 
015614 


015706 


015710 
015716 
015720 
015726 
015730 





MACY11 a 02-JUL-85 16:19 PAGE 83-58 
CZDZA 0Z11 DEVICE DIAGNOSTICS. 


02-JUL-85 16:1 


104003 
112777 
013705 


105737 
001406 


032777 
001774 
112777 
104401 
000744 


000252 164322 7%: 


001372 
001371 


000252 
100000 


000200 


164214 


164210 
001372 
001372 


000200 


100000 
000252 





MOV SAVLIN,R5S 
TSTB MODE +1 
BEQ 10$ 
ASR RS 
BCS 8$ 
SEC 
BR 9$ 
8$: cLC 
9$: ROL RS 
3 -- END O MACRO se2eeeeeesseeeen202 
10$: SWAB RS 
BISB $252 ,R5 
BIS #OVALID,RS 
CLR R3 
164226 11%: BIT @RDONE ,@DZCSR 
NE 12$ 
DELAY 
INC R3 
BNE 11$ 
ERROR 4 
12$: MOV 8DZRBUF ,R4 
CMP R4,R5 
BEQ 13$ 
ERROR 6 
13$: SCOP1 
14$: BIC R2,80ZTCR 
15$: INC SAVLIN 
MOV SAVLIN,RO 
ASL RO 
ASLB R2 
BCC 3$ 
CLR R3 
178: DELAY 
INCB R3 
BNE 17$ 
164140 BIT #RDONE ,@DZCSR 
BEQ 18$ 
ERROR 20 
18%: ADVANCE 
sTIGHT SCOPE LOOP FOR THIS TEST. 
164124 16%: BIT @TRDY,@0ZCSR 
BEQ 16$ 
164140 MOVB #252 ,aDZTOR 


ERROR 3 
MOVB #252 ,80ZTOR 





SEQ 77 


s#TROY FAILED TO SET! 

+LOAD CHARACTER 

sMAKE EXPECTED LINE @ 

3 -$STAG-ssseeeseeecesessasssessessssszss2ss3 
sIS THIS TEST IN STAGGERED MODE? 

sIF NOT, SKIP STAGGERED SETUP 


sWE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 


BR 14% 


pe hb esses sssesesesesseesee TEST 22 sesserssacsseesssasesssesseens 


sGET THE LAST BIT INTO THE CARRY BIT 

sIF IT IS SET, GO CLEAR IT 

sIF IT IS CLEAR SET IT HERE 

sSKIP THE CLEARING 

sCLEAR THE CARRY BIT CINVERSION OF LINE PARITY) 
sGET THE NEW BIT BACK INTO RS 


sMOVE THE LINE NUMBER TO THE UPPER BYTE 
sADD CHARACTER 
sADD DATA VALID 


s#RDONE FAILED TO SET! 

sLOAD THE VALUE ACTUALLY RECEIVED 
sCOMPARE ACTUAL VS EXPECTED. ARE THEY THE SAME? 
sIF YES, GO DO THE NEXT LINE 

s#NO DATA/CONTENTS DID NOT COMPARE 

sCHECK TO SEE IF SWITCH NINE IS SET 
sCLEAR TCR BIT FOR THAT LINE. 

sINC EXPECTED LINE 

sSET UP CHARACTER OFFSET 

sMAKE THE OFFSET A POWER OF TWO 

sSHIFT THE LINE POINTER. ARE WE ALL DONE? 
sIF NO, GO AROUND AGAIN FOR NEXT LINE 
sTHIS CODE HAS BEEN INSERTED 

sT0 DETECT A PROBLEM FOUND IN FAULT 
sINSERTION. IF AN ERROR OCCURS MORE 

~—— WORD WAS RECIEVED ON 

; 


sGO TO NEXT TEST 
LOOP TRANSMITS CHARACTERS ONLY 


sIS TRANSMITTER READY? 

sIF NOT, WAIT FOR IT 

sLOAD THE CHARACTER 

sLOOP AGIN IF SWO9=1 

sOTHERWISE, GO PICK UP THE TEST NORMALLY 


3 -$XZ-sasssssssesasssesesszsssessss 





ae 






















CZ0ZA-10 MACY11 30AC1052) 02-JUL-85 16:19 PAGE 83-59 
CZOZAI.P1i1 02-JUL-85 16:17 CZOZA 0Z11 DEVICE DIAGNOSTICS. 
8897 s# THIS TEST PROVES THAT THE TRANSMITTER TRANSMITS 
8898 s#CHARACTERS (FLAG MODE)AND THE RECEIVER RECEIVES (FLAG MODE) 
8899 s#(ONE LINE AT A TIME BASED UPON VALID LINES) 
8900 s#THIS IS THE FIRST TIME THAT ALL DATA IS CHECKED 
8901 ¢ -$XZ-sesesssssseesesssssssesssesss 
8902 s:@ TEST 22 
(5) 3 5 90666666 660666 06600466866 06666 6066066000666 6066046600666 4460060 4644088 
(4) 015732 000004 TST22: SCOPE 
$3? 015734 012737 000022 001122 aon i mane cxteaeeos sLOAD THE NUMBER OF THIS TEST 
;-- sseseseeaseasasasss 
(2) 015742 012737 016260 001360 MOV @TST23 ,NEXT sPOINT TO THE START OF THE NEXT TEST 
(1) 015750 012737 016064 001362 MOV 04$,LOCK sUSE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 


8903 3 $LINEUP -sessscesssessssesssesassssssssses 
(2) 3 -$MRESET-sseeseeeceesesssesssesssss28 


(2) 015756 104417 DOCLASM sCLEAR DEVICE AND SET MAINT BIT IF I MODE 
(2) 3 -- END 0 MACRO ssesseenenueesa52088 
(1) 015760 013701 001366 MOV PAR,R1 sPICK UP PARAMETERS 
(1) 015764 012702 000001 MOV #1,R2 sPICK UP INIT POINTER 
(1) 015770 030237 001364 1$: BIT R2,LINE sSHOULD THIS LINE BE SET UP ? 
(1) 015774 001402 BEQ 2$ 3NO 
(1) ©415776 010177 164050 MOV R1,@DZLPR sSET UP LINE PARAMETERS 
(1) 016002 005201 2%: INC Ri sPOSITION POINTER TO THE NEXT LINE 
(1) 016004 106302 ASLB R2 sGOT ‘EM ALL ? 
(1) 016006 103370 BCC 1$ 3;IF NO, GO SET UP THE NEXT LINE 
(1) 016010 005037 001372 CLR SAVLIN sCLEAR LINE # INDICATOR 
Ci) 3 -- END 0 MACRO sseseseeeenesesne02 
8904 016014 012700 001422 MOV #TD0,RO sPOINT TO THE DATA AREA 
8905 016020 005020 CLR CRO)+ sCLEAR A DATA WORD 
8906 016022 022700 001462 CMP @STOP,RO sFINISHED ? 
8907 016026 001374 BNE 6 sNO 
8908 016030 005000 CLR RO sCLEAR OFFSET 
8909 016032 013737 002046 001400 MOV OZRBUF ,REGIST sSAVE FOR ERROR MSG 
8910 016040 012702 000001 MOV #1,R2 sLINE POINTER 
8911 016044 052777 000040 163770 BIS @MSENAB,@DZCSR ;START SCANNER 
8912 016052 030237 001364 3$: BIT R2,LINE sVALID LINE ? 
8913 016056 001465 BEQ 14$ sNO SET UP NEXT LINE 
8914 016060 010277 163772 MOV R2,80ZTCR ;SET TCR BIT 
8915 016064 032777 000200 163750 4%: BIT @RDONE ,8DZCSR 3IS REC DONE = 0 ? 
8916 016072 001401 BEQ 5$ sIF YES, ALLOW TIME FOR TROY TO SET 
8917 016074 104020 ERROR 20 +#REC DONE SHOULD = 0 
8918 016076 005005 5$: CLR RS 
8919 016100 032777 100000 163734 6%: BIT @TRDY,@DZCSR 
8920 016106 001004 BNE 7$ 
8921 016110 104414 DELAY 
8922 016112 105205 ‘ INCB R5 
6923 016114 001371 BNE 6% es 
8924 016116 104003 , ERROR 3 s#TROY FAILED TO SET! 
8925 016120 116077 001422 163740 7%: MOVB TDOCRO),@0ZTOR ;LOAD CHARACTER 
oe 016126 013705 001372 MOV SAVLIN,RS ee osaee LINE @ 
ts - -SSeesseeesesesesessesssssezasssssss 
(1) 016132 105737 001371 TSTB MODE +1 :IS THIS TEST IN STAGGERED MODE? 
4 016136 001406 BEQ 10$ sIF NOT, SKIP STAGGERED SETUP 
Ft 3WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
(1) 016140 006205 ASR RS ;GET THE LAST BIT INTO THE CARRY BIT 

















SEQ 79 


CZ0ZA-I0 MACY11 3SOAC(1052) O02-JUL-85 16:19 PAGE 83-60 
CZDZAI.P1l 02-JUL-85 16:17 CZO0ZA D0Z11 DEVICE DIAGNOSTICS. 
(1) 016142 103402 BCS 8$ sIF IT IS SET, GO CLEAR IT 
C1) 016144 000261 SEC sIF IT IS CLEAR SET IT HERE 
(1) 016146 000401 BR 93 sSKIP THE CLEARING 
(1) 016150 000241 83: aos ° sCLEAR THE CARRY BIT CINVERSION OF LINE PARITY) 
(1) 016152 006105 98; ROL RS sGET THE NEW BIT BACK INTO RS 
(1) 3: -- END 0 MACRO se22eeeecesecceee2 
8928 016154 000305 10$: SWAB RS sMOVE THE LINE NUMBER TO THE UPPER BYTE 
8929 016156 156005 001422 BISB TDOCRO),RS sADD CHARACTER 
8930 016162 052705 100000 BIS @OVALID,RS sADD DATA VALID 
8931 016166 005003 CLR R3 
8932 026170 032777 000200 163644 i1$: BIT @RDONE ,@DZCSR 
8933 016176 001004 BNE 12$ 
8934 016200 104414 DELAY 
8935 016202 005203 INC R3 
8936 016204 001371 BNE 11$ 
8937 016206 104004 ERROR 4 s#RDONE FAILED TO SET! 
8938 016210 017704 163632 12$: MOV @DZRBUF ,R4 3LOAD THE VALUE ACTUALLY RECEIVED 
8939 016214 020405 CMP R4,R5 sCOMPARE ACTUAL VS EXPECTED. ARE THEY THE SAME? 
8940 016216 001401 BEQ 13$ sIF YES, GO DO THE NEXT LINE 
8941 016220 104006 ERROR 6 3#NO DATA/CONTENTS DID NOT COMPARE 
8942 016222 104401 13$: SCOP1 sCHECK TO SEE IF SWITCH NINE IS SET 
8943 016224 105260 001422 INCB TDOCRO) sINCREMENT BINARY PATTERN FOR THIS LINE 
8944 016230 001315 BNE 4s 3GO ‘ROUND AGAIN FOR NEXT CHARACTER 
8945 016232 040277 163620 14$; BIC R2,9DZTCR sCLEAR TCR BIT FOR THAT LINE. 
8946 016236 005237 001372 15$: INC SAVLIN sINC EXPECTED LINE 
8947 016242 013700 001372 MOV SAVLIN,RO ;SET UP CHARACTER OFFSET 
8948 016246 006300 ASL RO sMAKE THE OFFSET A POWER OF TWO 
8949 016250 106302 ASLB R2 sSHIFT THE LINE POINTER. ARE WE ALL DONE? 
8950 016252 103277 BCC 3$ sIF NO, GO AROUND AGAIN FOR NEXT LINE 
a 016254 005037 001362 CLR LOCK sMAKE SURE LOCK IS CLEAR FOR NEXT TEST 
9 
8953 
8954 : -$XZ-sssss22eeeeees2eese2e22e22222 
(2) peeh ee eeseesseceeeeeaecee TEST 23 shee ee ce dace ee eeee bees eeeeceae 
8955 s:#THIS TEST WILL PROVE THAT EACH RECEIVING LINE CAN 
8956 ;*BE DISABLED BY SETTING THE RCVON BIT TO ZERO 
8957 3#FOR EACH LINE IN THE LPR REGISTER. IT ALSO 
6958 s*VERIFIES THAT MASTER CLEAR WILL ZERO DVALID FOR 
8959 ;#CHARACTERS STORED IN THE SILO. 
8960 3 -$XZ-sssssassezessessssseseesee222 
8961 s:@ TEST 23 
(5) Fp SSSSAKAEEEASEASAEEEAEEAASEAAAEEREAEEKAKEKACAREREASLALELALALELELE 
(4) 016260 000004 TST23: SCOPE 
+ 016262 012737 000023 001122 con't nants poten sLOAD THE NUMBER OF THIS TEST 
2 ; -- Sssszssesessseseszzez 
(2) 016270 012737 016612 001360 MOV #TST24,NEXT sPOINT TO THE START OF THE NEXT TEST 
8962 016276 105037 001420 CLRB DONFLG sINITIALIZE FOR FIRST TEST LOOP 
6963 016302 005037 001372 CLR SAVLIN ;ZERO LINE NO. FOR ERROR REPORT 
8964 016306 104417 DCLASM sEXECUTE MASTER CLEAR 
8965 016310 013701 001366 MOV PAR,R1 sSTORE DEFAULT PARAMETERS 
8966 016314 042701 010000 BIC #RCVON,R1 ;CLEAR RCVON BIT 
89€7 016320 012702 000001 1$; MOV #1,R2 sINIT LINE POINTER 
8968 016324 010177 163522 2s: MOV R1,9DZLPR ;LOAD LINE PARAMETER REGISTER 
8969 016330 005201 INC Ri sSET R1 FOR NEXT LINE 
8979 016332 106302 ASLB R2 sSHIFT R2 TO NEXT LINE 
8971 016334 103373 BCC 2s sALL LINES LOADED? 











we pcs ~] 


CZ0ZA-I0 


CZ02AI 


8972 
8973 
8974 
8975 
8976 
8977 
8978 
8°79 
8980 
8981 
8982 
8983 
8984 
8985 
8986 
8987 
8988 
8989 
8990 
8991 


— 


Pil 


016336 
016342 
016346 
016352 
016360 
016362 
016366 
016370 
016372 
016374 
016376 
016400 
016404 
016410 
016414 
016416 
016420 
016422 
016424 
016426 
016430 
016434 
016436 
016442 
016444 
016446 
016452 
016454 
016456 
016462 
016464 
016466 
016470 
016472 
016476 
016500 
016504 
016506 
016512 
016514 
016516 
016522 
016526 
016530 
015532 
016536 
016542 
016544 
016546 
016550 
016552 
016554 
016556 
016560 
016562 
016566 


MACY11 30A(1052) 


02-JUL-85 16:17 


012701 
013702 
010277 
052777 
005005 
005777 
100404 
104414 
005205 
001372 
104003 
117705 
012703 
042705 
001403 
106303 
005305 
001375 
030302 
001007 
140377 
001351 
105737 
001040 
000404 
110177 
040302 
000741 
005077 
005005 
104414 
005205 
001375 
105777 
100003 
005037 
104020 

17704 
100007 
000304 
042704 
010437 
104017 
000766 
105237 
013701 


000666 


005005 
104414 
005205 
001375 
104413 
000240 
000240 
105777 
100003 





000252 
001364 
163504 
000040 


163454 


163440 
000001 
177770 


163422 
001420 


163414 


163374 


163244 
001372 
163334 


177770 
001372 


001420 
001366 


163254 





02-JUL-85 16:19 PAGE 83-61 
CZOZA 0Z11 DEVICE DIAGNOSTICS. 


163462 


4s: 


53: 


208: 


21s: 


6$: 


7$: 
8$: 


10$: 


11$: 


12$: 
13$: 


MOV LINE ,R2 
MOV R2,@0ZTCR 
BIS OMSENAB, a0ZCSR 
CLR RS 

TST @0ZCSR 
BMI S$ 

DELAY 

INC R5 

BNE 4S 

ERROR 3 

MOVB @HOZCSR,RS 
MOV #1,R3 

BIC @tC<7>,R5 
BEQ 21$ 

ASLB R3 

DEC RS 

BNE 20$ 

BIT R3,R2 

BNE 6$ 

BICB R3,8DZTCR 
BNE 3$ 

TSTB DONFLG 
BNE 12$ 

BR 7$ 

MOVB R1,QD0ZTOR 
BIC R3,R2 

BR 3$ 

CLR @0ZTCR 
CLR RS 

DELAY 

INC RS 

BNE 8$ 

TSTB a@0ZCSR 
BPL 10$ 

CLR SAVLIN 
ERROR 20 

MOV @DZRBUF ,R4 
BPL 11$ 

SWAB R4 

BIC #tC<7>,R4 
MOV R4,SAVLIN 
ERROR 17 

BR 10$ 

INCB DONFLG 
MOV PAR,R1 

BR 1$ 

CLR RS 

DELAY 

INC RS 

BNE 13$ 
DEVICE .CLR 

NOP 

NOP 

TSTB a@D0ZCSR 
BPL 14$ 


SEQ 80 


sLOAD TRANSMITTING CHARACTER 
sCOPY ACTIVE LINE BITS 

sLOAD TCR BITS 

sSET SCANNER 

sINIT DELAY COUNTER 

sTROY SET? 

sIF YES BRANCH 

sIF NOT THEN WAIT 

sINCREMENT DELAY COUNTER 

sDELAY DONE? 

sIF YES TROY FAILED TO SET 
sMOVE LINE NO. INTO RS 

sINIT TCR POINTER 

sISOLATE LINE NO. 

sIF LINE 0 GO TEST TRANSM. FLAG 
sPOINT R3 TO NEXT TCR BIT 
sDECREMENT RS UNTIL R3 POINTS 
sTO CORRECT TCR BIT 

sHAS THIS LINE BEEN SERVICED? 
sIF NOT GO SEND CHARACTER 

sIF YES CLEAR TCR BIT 

sIF MORE LINES SET BRANCH 

sIF ALL LOADED IS THIS SECOND PASS 
sIF YES BRANCH TO SECOND PART OF TEST 
sOTHERWISE CONTINUE WITH FIRST PART 
; TRANSMIT CHARACTER 

sCLEAR FLAG FOR THIS LINE 

:GO WAIT FOR NEXT LINE 

sCLEAR TCR BITS 

sCLEAR DELAY COUNTER 

sWAIT FOR LAST CHARACTER 
sINCREMENT DELAY COUNTER 

sIF NOT FINISHED CONTINUE WAITING 
sRDONE BIT SET? 

sIF NO CONTINUE 

sIF YES SET LINE NO. TO ZERO 
sAND PRINT ERROR 

sREAD SILO 

sIF DVALID IS ZERO BRANCH 

sIF SET THEN 

sISOLATE LINE NO. IN R4 

sSET SAVLIN FOR ERROR REPORT 
sDATA VALID SHOULD NOT BE SET 
sGO READ SILO AGAIN 

sPREPARE FOR SECOND PART OF TEST 
sMOVE DEFAULT PARAMETERS TO R1 
3GO LOAD LPR REGISTER 

sINIT DELAY COUNTER 

sWAIT FOR LAST CHARACTER 

;T0 BE RECEIVED 

sDELAY FINISHED? 

sIF YES EXECUTE MASTER CLEAR 


sRDONE SET? 
;IF NOT BRANCH 
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9028 016570 005037 001372 CLR SAVLIN 3IF YES THEN PRINT OUT 

9029 016574 104020 ERROR 20 sREPORT 

9030 016576 017704 163244 14%: MOV ODZRBUF ,R4 sREAD SILO 

9031 016602 100003 BPL 15$ sDATA VALID SET? 

9032 016604 005037 001372 CLR SAVLIN sIF YES THEN PRINT OUT 

9033 016610 104017 ERROR 17 sERROR REPORT 

9034 016612 15$: 

9035 

9036 ; -$XZ-seescessseesesesseessessss222 
(2) peebee esse seseseseeceeeee TEST 24 sheeesaseeeeeseeeeeeeeeeeeeeee 

9037 ;#THIS TEST WILL PROVE THAT: 

9038 3* 1) THE TRANSMITTER "BREAK BIT” WORKS 

9039 3# 2) THE RECEIVER CAN FLAG “FRAMING ERRORS” 

9040 3* 3) THE RECEIVER CAN FLAG “PARITY ERRORS” 

9041 ;*ONLY ONE LINE AT A TIME WILL BE EXERCISED. 

9042 3*THIS TEST WILL NOT BE EXERCISED UNLESS 

9043 ;*CONNECTED BY AN H325, H3271, OR H3190 CONNECTOR 

9044 ; -$XZ-sseceeeeeeasessesesesezs2222= 

9045 3:# TEST 24 

(5) fp PSSA ASAAAEASAAAREAERARESEEARASDSARAREERAEALEAAAAAREARARR ALAA EAE 
(4) 016612 000004 TST24: SCOPE 
(2) 016614 012737 000024 001122 MOV #24, $TSTNM ;LOAD THE NUMBER OF THIS TEST 

(2) 3; -- END 0 MACRO =22s22222e2e2e2es222 

(2) 016622 012737 017070 001360 MOV @TST25 ,NEXT sPOINT TO THE START OF THE NEXT TEST 

9046 016630 012737 016726 001362 MOV #3$,LOCK ;SET FOR LOOP 

9047 016636 005737 001370 TST MODE sARE WE RUNNING IN INTERNAL MODE? 

9048 016642 001510 BEQ 12$ ;IF SO, SKIP THIS TEST 

9049 ; -$MRES ET -ss22ssesesssessess2222222222 
(1) 016644 104417 DCLASM ;CLEAR DEVICE AND SET MAINT BIT IF I MODE 
(1) ; -- END O a Sssessassssssszzezzs 

9050 016646 013701 001366 MOV R,R1 ;PICK UP PARAMETERS 

9051 016652 052701 000300 BIS AODSPARIPARITY,, Ri sFORCE ODD PARITY 

9052 016656 012700 000001 MOV #1,RO0 ;PICK UP INIT POINTER 

9053 016662 030037 001364 1$: BIT RO LINE ; SHOULD THIS LINE BE SET UP ? 

9054 016666 001402 BEQ 2s ;IF NOT,DON’T SET IT UP 

9055 016670 010177 163156 MOV R1,9D0ZLPR ;OTHERWISE, SET UP LINE PARAMETERS 

9056 016674 005201 2$: INC R1 

9057 016676 106300 ASLB RO ;GOT ‘EM ALL ? 

9058 016700 103370 BCC 1$ 3NO 

9059 016702 005037 001372 CLR SAVLIN ;CLEAR LINE # 

9060 016706 012702 000001 MOV #1,R2 sLINE POINTER 

9061 016712 052777 000040 163122 BIS @MSENAB, @DZCSR ;SET MASTER SCAN ENABLE 

9062 016720 013737 002046 001400 MOV DZRBUF , REGIST ;SAVE FOR ERRR MESSAGE 

9063 016726 030237 001364 3$: BIT R2,LINE 

9064 015732 001446 BEQ 11$ 

9065 016734 010277 163116 MOV R2,aDZTCR ;SET TCR BIT 

9066 016740 110277 163124 MOVB R2,@9HDZTOR ;SET BREAK BIT 

9067 016744 112777 000377 163114 4$: MOVB #377,9DZTOR ;LOAD CHARACTER 

a 016752 013705 001372 MOV SAVLIN,RS agar ~ pencicn DATA 
6 3: -$ -SSeesessssssssssssssessssezssseezese 
(1) 016756 105737 001371 TSTB MODE +1 ;IS THIS TEST IN STAGGERED MODE? 
Fi 016762 001406 BEQ 7$ ;IF NOT, SKIP STAGGERED SETUP 
$f 3WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
(1) 016764 006205 ASR R5 ;GET THE LAST BIT INTO THE CARRY BIT 





co 








~~ 
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(1) 016766 103402 BCS 5$ sIF IT IS SET, GO CLEAR IT 

(1) 016770 000261 SEC sIF IT IS CLEAR SET IT HERE 

(1) 016772 000401 BR 6$ sSKIP THE CLEARING 

(1) 016774 000241 S$; CLC sCLEAR THE CARRY BIT CINVERSION OF LINE PARITY) 
(1) 016776 006105 6$: ROL R5 ;GET THE NEW BIT BACK INTO RS 

(1) 3 -- END O MACRO s2ee22seeeee2e22222 

9070 017000 000305 78; SWAB RS ;PUT LINE NUMBER IN UPPER BYTE 

9071 017002 052705 130000 BIS @DVALID! PARER!FRMERR, RS ;ADD EXPECTED 

9072 017006 005004 CLR R4 
9073 017010 032777 000200 163024 8%: BIT @RDONE , 8DZCSR 
9074 017016 001004 BNE 9$ 
9075 017020 104414 DELAY 
9076 017022 005204 INC R4 
9077 017024 001371 BNE 8$ 
9078 017026 104004 ERROR 4 ;*RDONE FAILED TO SET! 
9079 017030 017704 163012 9$: MOV @DZRBUF ,R4 sACTUAL 
9080 017034 020405 CMP R4,R5 sCMP ACTUAL VS EXPECTED. DO THEY MATCH? 
9081 017036 001401 BEQ 10$ ;IF YES, GO CLEAN UP 
9082 017040 104006 ERROR 6 ;*DATA/CONTENTS FAILED TO COMPARE 
9083 017042 105077 163022 10$: CLRB @HDZTOR ;CLEAR BREAK BITS 
9084 017046 104401 SCOP1 ;LOOP? 
9085 017050 005237 001372 118: INC SAVLIN sINC LINE # 
9086 017054 040277 162776 BIC R2,9DZTCR ;CLEAR TCR BIT 
9087 017060 106302 ASLB R2 
9088 017062 103321 BCC 3$ 
9089 017064 005037 001362 12$: CLR LOCK sMAKE SURE LOCK IS CLEAR FOR NEXT TEST 
9090 3 -$LVLTST-2222s2222sse2eseceseeee2e55 
(2) 3 -$XZ-ssssseseeeeece2ees22ees522222 
(3) pehehsebeeeeeeeeeecaaeeee TEST 25 sheeeaee se ee cece cece seer eeaene 
(1) 3* THIS TEST VERIFIES THAT THE DEVICE DOES NOT INTERRUPT 

(1) ;*WHILE THE PROCESSOR STATUS IS SET EXACTLY 

(1) 3*T0 WHAT THE DZ1ii PRIORITY IS SET TO. 

(1) s*DEFAULT PRIORITY IS AT 5 (240). 

(2) 3 -$XZ-seeeseesessssssssseszzzszzs22 
(3) s:& TEST 25 

(6) FE FRSEAEASEEAAAEAEAAEAERAAARAEAARAAEAAAEAAAAAAAARRARARALALEAKAAAREEERE 

(5) 017070 000004 TST25: SCOPE 

(3) 017072 012737 000025 001122 MOV #25, $TSTNM ;LOAD THE NUMBER OF THIS TEST 

(3) 3; -- END O MACRO =2222222222sse22222 

(3) 017100 012737 017400 001360 MOV #TST26 NEXT sPOINT TO THE START OF THE NEXT TEST 
(2) 3$ NEUP -2==s-2s22ssss2sesssesssesesee222222 
(3) 3 -$MRESET-=2s2ssses22222e2se22222222222 
(3) 017106 104417 DCLASM sCLEAR DEVICE AND SET MAINT BIT IF I MODE 
(3) 3 -- END 0 MACRO Sseeseeeeszezsesess 

(2) 017110 013701 001366 MOV PAR,R1 ;PICK UP PARAMETERS 

(2) 017114 012702 000001 MOV #1,R2 ;PICK UP INIT POINTER 

(2) 017120 030237 001364 1$: BIT R2,LINE ;SHOULD THIS LINE BE SET UP ? 

(2) 017124 001402 BEQ 2s NO 

(2) 017126 010177 162720 MOV R1,@DZLPR ;SET UP LINE PARAMETERS 

(2) 017132 005201 2s: INC R1 sPOSITION POINTER TO THE NEXT LINE 

(2) 017134 106302 ASLB R2 ;GOT ‘EM ALL ? 

(2) 017136 103370 BCC i$ ;IF NO, GO SET UP THE NEXT LINE 

(2) 017140 005037 001372 CLR SAVLIN ;CLEAR LINE # INDICATOR 

(2) 3; -- END O MACRO ==s=sss222s2222222= 

(1) 017144 106437 030334 MTPS a4DZPRT ;SET CPU STATUS TO DZ11 PRIO, 

(1) 017150 113777 001364 162700 MOVB LINE ,@DZTCR sENABLE THE VALID LINES 
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(1) 017156 38: 

(2) 3 -SINTSET-222seseeseneeeeeessee5n22222 
(2) 017156 012777 017246 162712 MOV %6$,80ZTIV sSET UP THE TRANSMITTER INTERRUPT VECTOR 
(2) 017164 012777 017254 162700 MOV #7$,80ZRIV sSET UP THE RECEIVER INTERRUPT VECTOR 
(2) 017172 013777 030334 162674 MOV DZPRT, @DZRIS s;SET THE INTERRUPT VECTOR STATUS 

(2) 017200 013777 030334 162672 MOV DZPRT, @OZTIS ;SET TRANSMITTER INTERRUPT PRIORITY 

(2) 017206 052777 040040 162626 BIS @TIE!MSENAB,@DZCSR ;ENABLE THE DEVICE 

(2) 3 -- END 0 MACRO ss2e2seeen2see222e2 

(1) 017214 005005 CLR RS 

(1) 017216 032777 100000 162616 4%: BIT #TROY,@DZCSR 

(1) 017224 001403 BEQ S$ 

(1) 017226 000240 NOP 

(1) 027230 000240 NOP 

(1) 017232 000412 BR 8$ 

(1) 017234 104414 5$: DELAY 

(i) 017236 005205 INC R5 

(1) 017240 001366 BNE 4$ 

(1) 017242 104003 ERROR 3 +*TRDY NOT SET! 

(1) 017244 000405 BR 8$ 

(1) 017246 104010 6$: ERROR 10 3#TRANSMITTER SHOULD NOT INTERRUPT 

(1) 017250 022626 CMP (SP)+,(SP)+ :POP FOR FAKE RTI 

(1) 017252 000402 BR 8$ sCONTINUE TEST 

(1) 017254 104012 7$: ERROR 12 s*#RECEIVER SHOULD NOT INTERRUPT 

(1) 017256 022626 CMP (SP)+,(SP)+ ;POP FOR FAKE RTI 

eat 017260 042777 040000 162554 83: BIC #TIE,aDZCSR ge I pe hn INTERRUPT ENABLE 

;- -S Be esssesssseseeese22eseses2 

(2) 017266 012777 017364 162602 MOV #11$ ,a0ZTIV sSET UP THE TRANSMITTER INTERRUPT VECTOR 
(2) 017274 012777 017372 162570 MOV #12$ ,ADZRIV sSET UP THE RECEIVER INTERRUPT VECTOR 
(2) 017302 013777 030334 162564 MOV DZPRT, @DZRIS sSET THE INTERRUPT VECTOR STATUS 

(2) 017310 013777 030334 162562 MOV DZPRT,@DZTIS s;SET TRANSMITTER INTERRUPT PRIORITY 
if 017316 052777 000140 162516 net mee oe sENABLE THE DEVICE 

(1) 017324 113777 001422 162534 MOVB TOO, BZTOR sPUT ANY RANDOM CHARACTER IN TRANSMITTER BUFFER 
(1) 017332 005005 CLR R5 

(1) 017334 032777 000200 162500 9%: BIT #RDONE ,@DZCSR 

(1) 017342 001403 BEQ 10$ 

(1) 017344 000240 NOP 

(1) 017346 000240 NOP 

(1) 017350 000412 BR 13$ 

(1) 017352 104414 10$: DELAY 

(1) 017354 005205 INC R5 

(1) 017356 001366 BNE 9$ 

(1) 017360 104004 ERROR 4 +#NO RX DONE! (NOT SET) 

(1) 017362 000405 BR 13$ sCONTINUE TEST 

(1) 017364 104010 11$: ERROR 10 s*TRANSMITTER SHOULD NOT INTERRUPT 

(1) 017366 022626 CMP (SP)+,(SP)+ ;POP FOR FAKE RTI 

(1) 017370 000402 BR 13$ ;CONT TEST 

(1) 017372 104012 12$: ERROR 12 s+*#RECEIVER SHOULD NOT INTERRUPT 

(1) 017374 022626 CMP (SP)+,(SP)+ ;POP FOR FAKE RTI 

(1) 017376 13%: 

(2) 017376 104413 DEVICE .CLR sISSVE DEVICE CLEAR (RESET) 

(2) ; -- END 0 MACRO =<22s=s=ss2s22222=2- 

(1) 3 -- END O MACRO =2=2s22ss222s2s222222 
9091 3 -$LVLTST-=2=2s2sssssessese2eee2s2see2s5 
(2) ; -$XZ-ss2s2sssssesess2s2222seesese5e5 
(3) peebkheseeeheheheeeeeeeee TEST 26 keke ck ee ee ee be cece ce ke tase rahe 
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s* THIS TEST VERIFIES THAT THE DEVICE DOES INTERRUPT 


“~ 
eo 
— 


(1) s*WHILE THE PROCESSOR STATUS IS SET TO EXACTLY 
(1) s*#ONE LEVEL LOWER THAN THE 0Z11. DZ11 PRIORITY 
(1) ;#DEFAULT TO LEVEL 5 MINUS ONE LEVEL IS LEVEL 4. 
(2) ; -$XZ-seeeseseeseassesessesese22225 
(3) 3:® TEST 26 
(6) 3 FPRARERAREREREREEEREEAREAREAEREAREEREAEEAEEAAAAREEAREREARERRERELE 
(S) 017400 000004 TST26: SCOPE 
4 017402 012737 000026 001122 net ae eee sLOAD THE NUMBER OF THIS TEST 
3 -- Peter ererrrrr rrr tty 
(3) 17410 012737 017726 001360 MOV #TST27 NEXT sPOINT TO THE START OF THE NEXT TEST 
(2) 3; $LINEUP -s22e2eceseneeeeesseessseeseseesss 
(3) 3 -$MRESET-s22s2ssessseeeeeeeeees2e2222 
(3) 017416 104417 DCLASM -: s;CLEAR DEVICE AND SET MAINT BIT IF I MODE 
(3) 3 -- END O MACRO =s222seeeeececeeee2 
(2) 017420 013701 001366 MOV PAR,R1 sPICK UP PARAMETERS 
(2) 017424 012702 000001 MOV #1,R2 sPICK UP INIT POINTER 
(2) 017430 030237 001364 1$: BIT R2,LINE sSHOULD THIS LINE BE SET UP ? 
(2) 017434 001402 BEQ 2s 3NO 
(2) 017436 010177 162410 MOV R1,@DZLPR sSET UP LINE PARAMETERS 
(2) 017442 005201 2s: INC Ri sPOSITION POINTER TO THE NEXT LINE 
(2) 017444 106302 ASLB R2 ;GOT ‘EM ALL ? 
(2) 017446 103370 BCC i$ sIF NO, GO SET UP THE NEXT LINE 
(2) 017450 005037 001372 CLR SAVLIN sCLEAR LINE # INDICATOR 
(2) 3: -- END 0 MACRO =2=2<ss22s2eee2eeee222 
(1) 017454 106437 030336 MTPS @¢LESSi sMAKE CPU ONE LEVEL LOWER THAN D0Z11 
(1) 017460 113777 001364 162370 MOVB LINE ,@DZTCR sENABLE THE VALID LINES 
(1) 017466 3$: 
(2) 3 -S$INTSET-2222sssee22eee2eeeceeeeee222 
(2) 017466 012777 017560 162402 MOV #6$,80ZTIV ;SET UP THE TRANSMITTER INTERRUPT VECTOR 
(2) 017474 012777 017576 162370 MOV #7$,9D0ZRIV sSET UP THE RECEIVER INTERRUPT VECTOR 
(2) 017502 013777 030334 162364 MOV DZPRT, @DZRIS sSET THE INTERRUPT VECTOR STATUS 
(2) 017510 013777 030334 162362 MOV DZPRT,@DZTIS ;SET TRANSMITTER INTERRUPT PRIORITY 
(2) 017516 052777 040040 162316 BIS — @TIE!MSENAB,@DZCSR ;ENABLE THE DEVICE 
(2) ; -- END 0 MACRO ==22ss2s22222222=-= 
(1) 017524 005005 CLR R5 
(1) 017526 032777 100000 162306 4s: BIT #TRDY,@DZCSR 
(1) 017534 001404 BEQ 5$ 
(1) 017536 000240 NOP 
(1) 017540 000240 NOP 
(1) 017542 104007 ERROR ‘4 s+*TRANSMITTER FAILED TO INTERRUPT 
(1) 017544 000416 BR 8&$ 
(1) 017546 104414 5$: DELAY 
(1) 01755¢C 005205 INC R5 
(1) 017552 001365 BNE 4$ 
(1) 017554 104003 ERROR 3 ;*TRDY NOT SET! 
(1) 017556 000411 BR 8$ 
(1) 017560 022626 6$: POP2SP sREMOVE THE INTERRUPT FROM THE STACK 
(1) 017562 042777 040000 162252 BIC #TIE,@DZCSR ;D0N‘T LET ANY MORE INTERRUPTS OCCUR 
(1) 017570 106437 030336 : MTPS O#LESS1i sMAKE CPU ONE LEVEL LOWER THAN DZ11 
(1) 017574 000402 BR 8$ sRETURN TO THE NORMAL FLOW 
(1) 017576 104012 7$: ERROR 12 +*RECEIVER SHOULD NOT INTERRUPT 
(1) 017600 022626 CMP (SP)+,(SP)+ ;POP FOR FAKE RTI 
eat 017602 042777 040000 162232 83: BIC #TIE,A@DZCSR ger he eaten INTERRUPT ENABLE 
(2) 017610 012777 017710 162260 MOV #11$,ADZTIV ;SET UP THE TRANSMITTER INTERRUPT VECTOR 
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(2) 017616 
(2) 017624 
(2) 017632 
(2) 017640 


017646 
017654 
017656 
017664 
017666 
017670 
017672 
017674 
017676 
017700 
017702 
017704 
017706 
017710 
017712 
017714 
017716 
017720 
017724 
017724 
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(4) 017726 
(2) 017730 


(2) 017736 


017744 


) 

) 

) 017746 
) 017752 
) 017756 
) 017762 
) 017764 
) 017770 
) 017772 
2 017774 
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012777 
013777 
013777 
052777 


113777 


6 
005077 
104413 


000004 
012737 


012737 


104417 


013701 
012702 
030237 
001402 
010177 
005201 
106302 
103370 





017716 
030334 
030334 
000140 
001422 


000200 


162116 


162246 
162242 
162240 
162174 


162212 
162156 


000027 001122 
020360 001360 


001366 
000001 
001364 


162062 


CZOZA 0Z11 DEVICE DIAGNOSTICS. 


MOV #12$ ,ADZRIV s;SET UP THE RECEIVER INTERRUPT VECTOR 
MOV DZPRT,@DZRIS ;SET THE INTERRUPT VECTOR STATUS 
MOV --OZPRT.@OZTIS __;SET TRANSMITTER INTERRUPT PRIORITY 
BIS  @RIE!MSENAB,DZCSR ;ENABLE THE DEVICE 
3 -- END 0 MACRO e22222eeeeeese22222 
ry _— ;PUT ANY RANDOM CHARACTER IN TRANSMITTER BUFFER 
L 
9$: BIT @RDONE ,@DZCSR 
BEQ 10$ 
NOP 
NOP 
ERROR 11 +*RECEIVER FAILED TO INTERRUPT 
BR 13$ 
10$: DELAY 
INC RS 
BNE 9$ 
ERROR 4 +#NO RX DONE! (NOT SET) 
BR 13$ sCONTINUE TEST 
11$: ERROR 10 ;*TRANSMITTER SHOULD NOT INTERRUPT 
CMP (SP)+,(SP)+ ;POP FOR FAKE RTI 
BR 13$ ;CONT TEST 
12$: PoP2sP sREMOVE THE INTERRUPT FROM THE STACK 
a3e CLR @0ZCSR ;DON'T ALLOW ANY MORE INTERRUPTS 
DEVICE .CLR sISSUE DEVICE CLEAR (RESET) 


3 -- END O MACRO =2=22sss22eeeeeee222 
; -- END O MACRO =222222ssss22222222 


3 -$XZ-seeseesesszsssessesssssesssss 
peekehekeeee ee eakscaeceaee TEST 27 shee beck ec cece ec ke eke keke eae 
;#THIS TEST VERIFIES THAT THE RECEIVER WILL 
+*INTERRUPT BEFORE THE TRANSMITTER EVEN 
3*THOUGH THE TRANSMITTER WAS ENABLED 
;#FIRST. SET PS TO LEVEL 7; 

;*GET RDONE AND TRDY TO SET; 
;*SET TX IE AND RX IE; 
;#CLEAR PS AND EXPECT RX TO INTERRUPT FIRST 


; -$XZ-seeesezeszzzszzesssssssess2e52 


3:@ TEST 27 
Sp SERRA AAAEEEAERAKARAAKAAAERARAAAAAEARARAREAKAKEALALEARAEAABEAA AEE 
TST27: SCOPE 
#27, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
3; -- END O MACRO =22s2s2sssesee2e222 
MOV @TST30, NEXT ;POINT TO THE START OF THE NEXT TEST 
: INEUP -s2sseeseeseeeaeaeseeeeeseeeses222 
3 -$MRESET-22s2seseseeeeeee222s22222222 
DCLASM ;CLEAR DEVICE AND SET MAINT BIT IF I MODE 
3; -- END O MACRO =2*22222222s22s=2=ss222 
MOV PAR,R1 ;PICK UP PARAMETERS 
MOV #1,R2 ;PICK UP INIT POINTER 
1$: BIT R2,LINE ;SHOULD THIS LINE BE SET UP ? 
BEQ 2s ;NO 
MOV R1,9DZLPR ;SET UP LINE PARAMETERS 
2s: INC R1 sPOSITION POINTER TO THE NEXT LINE 
ASLB R2 ;GOT ‘EM ALL ? 
BCC 1$ ;IF NO, GC SET UP THE NEXT LINE 
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(1) 


017776 


020002 
020010 
020016 
020024 
020032 
020040 
020044 
020050 
020052 
020056 
020060 
020062 
020066 
020070 
020072 
020076 
020102 
020104 
020106 
020112 
020114 
020116 
020120 
020122 
020126 
020130 
020132 
020134 
020136 
020140 
020144 
020146 
020154 
020156 
020160 
020162 
020164 
020166 
020172 
020174 


020176 
020204 
020212 
020216 
020220 
020222 
020224 


020226 


029232 
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005037 


v12777 
013777 
012777 
013777 
yd 

2702 
030237 
001004 
005237 
106302 
000771 
106427 
000240 
000240 
110277 
005777 
100001 
104017 
105777 
100001 
104020 
005005 
005004 
005777 
100404 
104414 
005204 
001372 
104003 
105077 
005004 
032777 
001004 
104414 
005204 
001371 
104004 
005777 
100401 
104003 


052777 
052777 
106427 
000240 
000240 
104007 
104011 


000137 


017704 





001372 
020232 
030334 
020322 
030334 
000040 
000001 
001364 


001372 


000340 


161760 
161744 


161730 


161714 


161722 
000200 


161650 


040000 
000100 
000000 


020326 


161610 


162062 
162056 
162052 
162046 
162002 


161666 


161636 
161630 


CLR SAVLIN ;CLEAR LINE # INDICATOR 
3 -- END 0 MACRO 2#222222e22222222222 
MOV #8$,ADZRIV sSETUP INTERRUPT STUFF 
MOV DZPRT, @DZRIS H 
MOV #12$ ,aDZTIV ; 
MOV DZPRT,@DZTIS ; 
BIS #MSENAB , BOZCSR 
MOV #1,R2 sLINE POINTER 
3$: BIT R2,LINE ;VALID LINE ? 
BNE 4$ 
INC SAVLIN 
ASLB R2 
BR 3$ 
4$: MTPS #PR7 
NOP 
NOP 
MOVB R2,9DZTCR ;SET TCR BIT 
TST @DZRBUF ;VALID DATA? 
BPL +4 ;IT BETTER NOT BE SET 
ERROR 17 ;DATA VALID SHOULD NOT BE SET 
5$: = — sRECEIVER DONE ? 
«* 
ERROR 20 sRECEIVER DONE BIT SHOULD NOT BE SET 
CLR R5 
CLR R4 
99$: TST aD0ZCSR ;WAIT FOR TROY 
BMI 100$ :BR IF READY 
DELAY sSTALL TIME 
INC R4 ; 
BNE 99$ 
ERROR 3 ;TRDY FAILED TO SET 
100$: CLRB @DZTOR 
CLR R4 
6$: BIT #RDONE , 8@DZCSR 
BNE $ 
DELAY 
INC R4 
BNE 6$ 
ERROR 4 +#RDONE FAILED TO SET! 
7$: TST aDZCSR ;TRANS DONE BIT = 1 ? 
BMI +4 YES 
ERROR 3 ;*#NO TRANS DONE FAILED TO SET 
sNOW THAT BOTH TRANSMITTER AND RECEIVER DONE BIT =1 
;SET INTERRUPT ENABLES AND WATCH THE FUR FLY 
BIS #TIE,@DZCSR 
BIS #RIE ,8DZCSR 
MTPS #0 
NOP 
NOP 
ERROR : 4 ;*TRANSMITTER FAILED TO INTERRUPT 
ERROR 11 ;*RECEIVER FAILED TO INTERRUPT 
;CHECK BR LEVEL 
JMP 13$ ;GET OUT 
sRECEIVER INTERRUPT ROUTINE 
8$: MOV @DZRBUF ,R4 sACTUAL 





CZ0ZA-1I0 
CZDZAI .P1l 
9158 020236 
9159 020240 
9160 020242 
9161 
(1) 020246 
(1) 020252 
(1) 
(1) 
(1) 
(1) 020254 
(1) 020256 
(1) 020260 
(1) 020262 
(1) 020264 
(1) 020266 
(1) 


9162 020270 
9163 020274 
9164 020276 
9165 020300 
9166 020304 
9167 020306 
9168 020310 
9169 020312 
9170 020316 
9171 020320 


9173 020322 


9175 020324 
9176 020326 
9177 020334 
9178 020342 
9179 020346 
9180 020354 


020360 
020362 


020370 


020376 
(1) 020400 
(1) 020404 
(1) 020410 








SEQ 87 
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010403 
000303 
042703 


105737 
001406 


006203 
103402 
000261 
000401 
000241 
006103 


020337 
001401 
104015 
042704 
120504 
001401 
104005 
040277 
022626 
000402 


104011 


022626 
042777 
013777 
005077 
013777 
005077 


000004 
012737 


012737 


104417 


013701 
01270? 
030237 





177770 
001371 


001372 


177400 


161540 


040100 
002074 
161526 
002100 
161520 


000030 
020546 


161506 
161530 


161522 


001122 
001360 


CZOZA DZ11 DEVICE DIAGNOSTICS. 


MOV R4,R3 
SWAB R3 
BIC #tC<7>,R3 sSTRIP JUNK 
; -$STAG-s22s2seeeeeeeeeseeeeeeeeesse2e22222 
TSTB MODE +1 ;IS THIS TEST IN STAGGERED MODE? 
BEQ 11$ ;IF NOT, SKIP STAGGERED SETUP 
sWE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
ASR R3 ;GET THE LAST BIT INTO THE CARRY BIT 
BCS 9$ ;IF IT IS SET, GO CLEAR IT 
SEC ;IF IT IS CLEAR SET IT HERE 
BR 10$ ;SKIP THE CLEARING 
9$: CLC ;CLEAR THE CARRY BIT CINVERSION OF LINE PARITY) 
10$: ROL R3 ;GET THE NEW BIT BACK INTO R3 
3; -- END i. MACRO 22222222222 2e2222222 
11$: CMP R3,SAVLIN ;IS THIS A VALID LINE 
BEQ .+4 3YES 
ERROR 15 } INVALID LINE 
BIC #tC<377>,R4 ;STRIP JUNK 
CMPB RS,R4 sDATA COMPARE ? 
BEQ +4 YES 
ERROR 5 :#DATA DOES NOT COMPARE 
BIC R2,@DZTCR ;CLEAR TCR BIT 
POP2SP sREMOVE HE INTERRUPT VECTOR FROM THE STACK 
BR 13$ 3GO GET OUT OF INTERRUPT MODE 
;TRANSMITTER INTERRUPT svc ROUTINE 
12$: ERROR i1 ;THE RECEIVER INTERRUPT FAILED 
3TO OVERRIDE THE TRANSMITTER 
POP2SP sREMOVE THE INTERRUPT VECTOR FROM THE STACK 


13$: BIC #TIE!RIE,@O0ZCSR ;CLEAR INTERRUPT ENABLES 
MOV DOZRIS, BOZRIV sRESTORE TRAPCATCHER 
CLR a0ZRIS 
MOV OZTIS, @0ZTIV 
CLR aoZTIS 
: -$XZ-ssesseeesesessseseseeeeeee322 
pebese ee eeeeeeeeeeeeeeeee TEST 30 sh cdscckaceb ce ke ek ec ke seeeeeae 
;*#TEST TO VERIFY THAT ‘RDONE DOES NOT SET 
;*#IF THE SCANNER IS DISABLED. 
;*TURN ON SCANNER, WAIT FOR TRDY 
3*TURN OFF SCANNER, TRANSMIT A CHARACTER 
3*'RDONE SHOULD NOT SET. 


; -$XZ-sesassszszesascssese23523232523 
3:* TEST 30 


WEEE ti rir i reir rire fir tii t iti titi ittitititttttttt titi tt 
TST30: SCOPE 


#30, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
3 -- END 0 MACRO 2222222222222: 222 
#TST31,NEXT sPOINT TO THE START OF THE NEXT TEST 


s$LINEUP-ssssssssssecesessszsaaee2225223223 
; - $MRESET -s22222ss2sessesseeeseeesesc2 
DCLASM ;CLEAR DEVICE AND SET MAINT BIT IF I MODE 
3 - END O MACRO =222222222ss22esee52 


MOV PAR,R1 sPICK UP PARAMETERS 
MOV #1,R2 ;PICK UP INIT POINTER 
1s; BIT R2,LINE sSHOULD THIS LINE BE SET UP ? 








CZ0ZA-1I0 
CZDZAI .Pi1 


(1) 020414 
(1) 020416 
(1) 020422 
(1) 020424 
(1) 020426 
(1) 020430 


9214 020544 


(4) 020546 
(2) 020550 


(2) 020556 
9228 020564 


(2) 020572 


—-- 
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001402 
010177 
005201 
106302 
103370 
005037 


052777 


012702 
030237 


000004 
012737 


012737 
012737 


104417 





161430 


001372 
000040 
000001 
001364 


001372 


161366 
161344 


000040 
161344 


000200 


000031 


021274 
021200 





161400 


161324 


161302 


001122 


001360 
001362 



















SEQ 88 
CZOZA 0Z11 DEVICE DIAGNOSTICS. 


BEQ 2s 3NO 
MOV R1,8DZLPR ;SET UP LINE PARAMETERS 
2$: INC Ri sPOSITION POINTER TO THE NEXT LINE 
ASLB R2 ;GOT ‘EM ALL ? 
BCC i$ ;IF NO, GO SET UP THE NEXT LINE 
CLR SAVLIN ;CLEAR LINE # INDICATOR 
3; -- END 0 MACRO =2222s222s22se22222 
BIS #MSENAB,@D0ZCSR ;TURN ON SCANNER 
MOV #1, R2 sINIT LINE COUNTER 
33: BIT Re, LINE sFIND A VALID LINE 
BNE 4$ ;IF WE FOUND ONE GO TO TEST 
INC SAVLIN ;IF NOT 
ASLB R2 sKEEP LOOKING 
BR 3$ 
4$: MOVB Re, 8DZTCR ;SET TCR BIT 
CLR R5 
S$: TST @DZCSR :IS TROY SET 
BMI 6$ s;CON‘'T TESTING IF IT IS 
DELAY ;IF IT NOT WAIT A WHILE a 
INC RS 
BNE 5$ 
ERROR 3 ;WE WAITED LONG ENOUGH-ERROR 
6$: BIC #MSENAB, @DZCSR ;TURN OFF SCANNER 
CLRB @D0ZTOR ; TRANSMIT A CHARACTER 
CLR R5 ;CLEAR COUNTER 
7$;: DELAY sWAIT SUFFICIENT TIME FOR 
INC RS sRDONE TO SET 
BNE 7$ 
BIT #RDONE, ODZCSR ;RDONE SET 
BEQ 8$ ;IT SHOULON‘ T BE-CONTINUE 
ERROR 20 ;IF IT IS THERE'S AN ERROR 
8$: ADVANCE 
: -$XZ-seesee2eeseeeseeezeesesee2222 
FRRRREaEAAAAEEEASAEEAKEEE TEST 31 SREEREAAKEADAARAREALALASLAEAELES 
;*THIS TEST VERIFIES OVERRUN AND SILO ALARM 
;*ONE LINE AT A TIME - BASED UPON VALID LINES 
3#AS EACH OF THE FIRST 16 CHARS ARE SENT; SILO ALARM IS 
;*TESTED TO BE CLEARED. ON THE 16TH CHAR THE PROGRAM THEN 
;*EXPECTS SILO ALARM TO SET. THEN THE ENTIRE 
;*#SILO IS FILLED AND AN OVERRUN IS EXPECTED ON THE 65TH 
3#CHAR PULLED OUT OUT THE SILO. 
3*#USING SWITCH NINE FOR THIS TEST SENDS 20. CHARACTERS 
3*O0N DZ LINE PREVIOUSLY SELECTED CONTINUOUSLY WHILE SWO9=1. 
;#USED TO SCOPE SILO ALARM A eet ETc. 
; - -2Bessssessesessssseseessezz22 
3:# TEST 31 
SHEARER AREEEAEEAEEAEREAEAAREASASARAARAEABASASEAREAASEKEAAEEEEEEEE 
TST31: SCOPE 
MOV #31, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
3 -- END O MACRO <=s2s222ese22e222222 
MOV #TST32,NEXT sPOINT TO THE START OF THE NEXT TEST 
MOV #18$ ,LOCK ;SET FOR LOOP 
3 $LINEUP -sesesssseesaeeaseess2s225222252922 
; - $MRESET -22222s22s2ssssseseseeese5s25 
DCLASM ;CLEAR DEVICE AND SET MAINT BIT IF I MODE 


3 -- END 0 MACRO =ee222222s222222222 





CZ0ZA-10 
CZOZAI.P1i1 


~ 
ee 
~~ 


ee oe ee ee te oe Pe | 
Oe pe pe pe pe 
ee a a a a 
_ 
oO 


020766 
020770 


020772 
020774 
020776 
021004 
021006 
021010 
021012 
021014 


021016 
021020 
021024 
021026 


-- 
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013701 
012702 
030237 
001402 
010177 
005201 
106302 
103370 
005037 


012700 
005020 
022700 
001374 
005000 
012702 
052777 
030237 
001002 
000137 
013700 
006300 
010277 
105777 


001401 





001366 
000001 
001364 


161234 


001372 
001422 
001462 
000001 
010040 
001364 


021162 
001372 


161152 
161132 


100000 


001422 
001422 
000017 


020000 


020000 


000102 





161162 


161114 


161120 


161054 


161036 


CZDZA 0Z11 DEVICE DIAGNOSTICS. 


MOV PAR,R1 
MOV #1,R2 
1$: BIT R2,LINE 
BEQ 2$ 
MOV R1,@DZLPR 
2s: INC R1 
ASLB R2 
BCC i$ 
CLR SAVLIN 
3; -- END 0 MACRO =s22sseseese2222222 
MOV #TDO,RO 
CLR C(RO)+ 
CMP #STOP,RO 
BNE .-6 
CLR RO 
MOV #1,R2 
BIS @MSENAB! SILOEN, 9 
3$: BIT R2,LINE 
BNE +6 
JMP 22$ 
MOV SAVLIN,RO 
ASL RO 
MOV R2,8D0ZTCR 
4$: TSTB aDZCSR 
BPL +4 
ERROR 20 
CLR R3 
5$: CLR R4 
6$: BIT #TRDY,@DZCSR 
BNE 7$ 
DELAY 
INCB R4 
BNE 6$ 
ERROR 3 
7$: MOVB TDOCRO), @DZTOR 
INC TDOCRO) 
CMP R3,@15. 
BHIS 8$ 
BIT #SILOAL,@DZCSR 
BEQ 4 
ERROR 13 
BR 10$ 
8$: CLR R4 
9$;: BIT #SILOAL ,@DZCSR 
BNE $ 
DELAY 
INC R4 
BNE 98 
ERROR 14 
10$: INC R3 
CMP #66. ,R3 
BNE 5$ 
CLR R4 


DZCSR 





sPICK UP PARAMETERS 
sPICK UP INIT POINTER 
sSHOULD THIS LINE BE SET UP ? 


3NO 

sSET UP LINE PARAMETERS 

sPOSITION POINTER TO THE NEXT LINE 
;GOT ‘EM ALL ? 

;IF NO, GO SET UP THE NEXT LINE 
s;CLEAR LINE # INDICATOR 


sPOINT TO THE DATA AREA 
sCLEAR A DATA WORD 
_— ? 


H 

sCLEAR OFFSET 
sLINE POINTER 
sSTART SCANNER € SET SILO ENABLE 
;VALID LINE? 

;YES 

sTRY NEXT LINE 
sMAKE OFFSET 

sMAKE POWER OF TWO 
;SET TCR B2T 

sREC DONE = 1 ? 


sREC DONE SHOULD NOT = 1 
sSET CHARACTER COUNT 


s#TRDY FAILED TO SET 
sLOAD A CHARACTER 

sSET UP NEXT CHARACTER 
316 CHARACTERS ? 


;SILO ALARM = 0 ? 
YES 

;#SILO ALARM SHOULD NOT = 1 
sUNTIL 16. DATA CHARACTERS 


s#SILO ALARM FAILED TO SET! 
sSILO ALARM SHOULD =1 AFTER 16. 
sDATA CHARACTERS 

sINC CHAR COUNT 

panes SENDING CHARACTERS ? 
s 





CZ0ZA-10 
CZDZAI.P1i1 


021030 
021032 
021034 
021036 


021042 
021046 


Ce oe ae ae a he Le ho Lae ae) 
> ee ee pe pe ee pe pe pe 
ah hb a a 
ras 
a 


021176 


021200 
021206 
021214 
021222 
021226 
021234 
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104414 
105204 
001375 


013705 


105737 
001406 


006205 
103402 
000261 
000401 
000241 
006105 


052777 
012777 
012737 
050277 
052777 
106427 


001372 
001371 


100000 
160750 


020000 


000077 
040000 
000101 
160700 


160676 
001372 


020660 


010040 
021264 
000024 
160630 
040000 
000000 


160730 


160634 
160662 
001216 


160606 


CZOZA 0Z11 DEVICE DIAGNOSTICS. 


sNOW LETS READ THE SILO 


MOV SAVLIN,RS gee tn LINE @ 

i - “SSS eeesseesssessasssssssesssessssss 
TSTB MODE +1 sIS THIS TEST IN STAGGERED MODE? 
BEQ 13$ sIF NOT, SKIP STAGGERED SETUP 


sWE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 


ASR RS sGET THE LAST BIT INTO THE CARRY BIT 

BCS 11$ sIF IT IS SET, GO CLEAR IT 

SEC sIF IT IS CLEAR SET IT HERE 

BR 12$ sSKIP THE CLEARING 
118: CLC sCLEAR THE CARRY BIT CINVERSION OF LINE PARITY) 
12$: ROL sGET THE NEW BIT BACK INTO RS 


13$: 


BIS #DVALID,RS ;ADD DATA VALID 
14$: MOV @DZRBUF ,R4 sACTUAL 
CMP R4,R5 sACTUAL VS. EXPECTED 
BEQ 15$ YES 
ERROR 6 :*#DATA/CONTENTS DID NOT COMPARE 
15$: BIT @SILOAL,@DZCSR ;SILO ALARM= 0 ? 
BEQ 16$ YES 
ERROR 16 sREADING DZRBUF DID NOT CLEAR SILO ALARM 
16$: INC RS ;UP CHARACTER 
CMPB RS, #63. sLAST SILO CHAR ?....64TH CHAR 
BLOS 14$ 
INC RS ;ADD 1 MORE FOR THE CLOBBERED CHAR 
BIS #0VRRUN, RS ;ADD OVERRUN TO EXPECTED 
CMPB RS ,#65. sLAST CHARACTER ? 
BEQ 14$ 
MOV ODZRBUF ,R4 sFOR GOOD MEASURE 
TST R4 sDATA VALID SHOULD = 0 
BPL 17$ YES 
ERROR 17 sDATA VALID SHOULD = 0 
17$: BIC R2,8D0ZTCR ;CLR TCR BIT 
SCOP1 ;LO0P? 
22%: INC SAVLIN sINC EXPECTED LINE 
ASLB R2 sNEXT LINE 
BCS +6 3NO 
JMP 3$ ;YES 
ADVANCE :GO TO NEXT TEST 


we 


RS 
3 -- END O MACRO seeee22e2e22e222222 
SWAB 


RS 















SEQ 90 


sPUT IN UPPER BYTE 


sTIGHT SCOPE LOOP FOR THIS TEST. SENDS 20. CHARACTERS 
sON DZ LINE PREVIOUSLY SELECTED CONTINUOUSLY WHILE SWO9=1. 
sUSED TO SCOPE SILO ALARM PULSES, ETC. 


18$: BIS @MSENAB!SILOEN,@DZCSR ;SETUP DEVICE 
MOV #208 ,@0ZTIV sSETUP TRANSMITTER VECTOR 
MOV #20. ,$TMPO s TEMPORARY COUNT OF CHARACTER BURST 
BIS R2,80ZTCR sENABLE LiNE 
BIS #TIE,@0ZCSR sENABLE INTERRUPTS 
MTPS #0 sLOWER PRIORITY 











CZ0ZA-I0 


CZ0ZAI 


LT ee ee Te ae ee ee ee 


a ed ed ok et ee 
dd a a a a A 


Pil 





MACY11 30A(1052) 02-JUL-85 16:19 PAGE 83-72 
02-JUL-85 16:17 


000001 
005337 
001374 
042777 
104401 
000137 
112777 
900002 


000004 
012737 


012737 
012737 
104417 
013701 


052777 
030237 


001216 
050040 


021154 
000252 


000032 


021656 
021400 


001366 
000001 
001364 


160506 


001372 
001422 
001462 
000001 
021620 
000340 
010140 
001364 
021636 
160406 
000000 
001372 
160376 


CZDZA 0Z11 DEVICE DIAGNOSTICS. 


sALLOW INTERRUPTS 
sREDUCE COUNT. ALL CHARACTERS SENT? 
WAIT FOR 


;LOOP AGAIN? 

IF NOT, RETURN TO WHERE YOU LEFT OFF 
SEND A CHARACTER 
sALLOW MORE CHARACTERS TO COME 


3 -$XZ-sseeeseesssesssssssssessessss 


peeeseeseessseaeceseceees TEST 32 seececssesscaceceecceceseesece 
s*#THIS TEST THAT “SILO ENABLE” WILL INHIBIT 

s#RECEIVER INTERRUPTS AND THAT ON THE 

s#16TH CHAR THAT “SILO ALARM” WILL CAUSE AN 


s#THIS WILL DO ALL SELECTED LINES ONE AT A TIME. 


F -$XZ-sesscasesesesssasssssesssesss 


§ 5 SO OO66 0660606 46466664666666066066060000606606006 00 0004000000044000000006 


sLOAD THE NUMBER OF THIS TEST 
sPOINT TO THE START OF THE NEXT TEST 


19%: WAIT 
DEC $TMPO 
BNE 19$ 
160564 BIC 
SCOP1 
JMP 17$ 
160574 20%: MOVB #252 ,80ZTOR 
RTI 
s*INTERRUPT WITH “RIE” SET 
3:# TEST 32 
TST32: SCOPE 
001122 MOV #32, $TSTNM 
3 -- END 0 MACRO eeseeeenneenan22202 
001360 MOV @TST33 ,NEXT 
001362 MOV #39, LOCK 


sSET FOR LOOP 
s$LINEUP -sesesesessssesssssassssesssssssss 
3 -$MRESET-ss2eseessseseesazssassesases 


sCLEAR DEVICE AND SET MAINT BIT IF I MODE 


OCLASM 
3 -- END 0 MACRO e2eeeesesennn2en228 


i$: 


23: 


N 
3 -- END O MACRO =ssesseenenseazea22 
MOV 


160464 3%: 
160460 
160420 


sPICK UP PARAMETERS 
sPICK UP INIT POINTER 
_ THIS LINE BE SET UP ? 


sSET UP LINE PARAMETERS 

sPOSITION POINTER TO THE NEXT LINE 
sGOT ‘EM ALL ? 

sIF NO, GO SET UP THE NEXT LINE 
sCLEAR LINE @ INDICATOR 


sPOINT TO THE DATA AREA 
sCLEAR A DATA WORD 
sFINISHED ? 

3NO 


sCLEAR OFFS"T 

sLINE POINTER 

sSET FOR UNEXPECTED INTER. 
sSET PRIO. 


Ss 
#MSENAB! SILOEN!RIE, 90ZCSR 


MOV PAR,R1 

MOV #1,R2 

BIT R2,LINE 

BEQ 2$ 

MOV R1,@0ZLPR 

INC R1 

ASLB R2 

BCC 1$ 

CLR SAVLI 
#TDO,RO 

CLR (RO)s 

CMP @STOP,RO 

BNE .-6 

CLR RO 

MOV #1,R2 

MOV #11$ ,@DZRIV 

MOV @PR7 ,@OZRI 

BIS 

BIT R2,LINE 

BNE . +6 

JMP 228 

TST @0ZRBUF 

BMI 7-4 

MTPS @0 

MOV SAVLIN,RO 

ASL RO 

MOV R2,@0ZTCR 





START SCANNER & SET SILO ENABLE 
sVALID LINE? 

sYES 

sTRY NEXT LINE 

sEMPTY THE SILO 

36R IF DATA VALIO IS SET! 
sSET PROCESS" PRIORITY TO 0 
sMAKE OFFSET 

sMAKE POWER OF TWO 
sSET TCR BIT 





SEQ 91 


;IF NO, MORE 
@SILOEN! MSENAB! TIE , @0ZCSR sRESET SILO COUNTER, CLEAR STROBE 











CZ0ZA-I0 
CZOZAI.Pil 


021460 
021462 
021470 
021472 
021474 
021476 
021500 
021502 
021510 
021514 
021522 
021524 
021532 
021534 


021536 
021540 
021546 
021554 
021556 
021564 
021566 
021574 
021576 
021600 
021602 
021604 
021606 


021610 
021612 
021614 
021616 
021629 
021622 
021624 
021626 
021630 
021634 
021636 
021642 
021644 
021646 
921652 
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S$: CLR R4 
032777 100000 160352 63: BIT @TROY,@DZCSR 
001004 BNE 7$ 
104414 DELAY 
005204 INC R4 
001371 BNE 6$ 
104003 ERROR 3 
116077 001422 160356 7%: MOVB TDOCRO),8DZTOR 
005260 001422 INC TDOCRO) 
022760 000017 001422 CMP #15. ,TDOCRO) 
001406 BEQ 8$ 
032777 020000 160310 BIT #SILOAL,@D0ZCSR 
001401 BEQ +4 
104013 ERROR 13 
000750 BR 5$ 
012777 021626 160324 83%: MOV #12$ ,aDZRIV 
032777 100000 160266 BIT STRDY,@D0ZCSR 
001774 BEQ .-6 
016077 001422 160302 MOV TDOC RO), @DZTOR 
005004 CLR R4 
032777 020000 160246 9%: BIT #SILOAL,@0ZCSR 
001005 BNE 10$ 
104414 DELAY 
005204 INC R4 
001371 BNE 9$ 
104014 ERROR 14 
000410 BR 17$ 
000240 10$: NOP 
000240 NOP 
104060 ERROR 
000404 BR 17$ 
022626 118: CMP (SP)+,(SP)+ 
104012 ERROR 12 
000401 BR 17$ 
022626 12$: CMP (SP)+,(SP)+ 
040277 160222 17$: BIC R2,a0ZTCR 
104401 SCOP1 
005237 001372 223: INC SAVLIN 
106302 ASLB R2 
103402 BCS +6 
000137 021400 JMP 3$ 
005037 001362 CLR LOCK 





SEQ 92 


s#TROY FAILED TO SET 
sLOAD A CHARACTER 

SET UP NEXT CHARACTER 
315 CHARS YET? 


sSILO ALARM = 0 ? 

YES - 
3#SILO ALARM SHOULD NOT = 1 

sUNTIL 16. DATA CHARACTERS 


sSET NEW VECTOR 
sREADY FOR 16TH CHAR 


sLOAD THE 16TH CHAR. 


3#SILO ALARM FAILED TO SET! 
;SILO ALARM SHOULD =1 AFTER 16. 
sDATA CHARACTERS 

;STALL 


sSILO ALARM NOT INTERRUPTING. 
sCONTINUE TEST. 

sFAKE RTI 

sRX SHOULD NOT INTERRUPT 

; CONTINUE 

sGOOD INTERRUPT TO HERE. 

s;CLR TCR BIT 

;LOOP? 

sINC EXPECTED LINE 

sNEXT LINE 


YES 
;CLEAR TIGHT LOOP FOR NEXT TEST 





ecn aw 


CZ20ZA-10 
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021656 
021660 


021666 
021674 


021676 
021704 
021710 
021714 
021720 
021722 
021726 
021730 
021732 
021734 
021740 
021742 
021746 
021750 
021756 
021764 
021772 
022000 
022006 
022014 
022022 
022030 


022034 
022040 
022044 
022046 
022052 
022054 
022060 
022062 
022066 
022072 
022074 
022076 
022100 
022104 


-— 
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000004 
012737 


012737 
104417 


013737 
013701 
012700 
030037 
001402 
010177 
005201 
106300 
103370 
012700 
005020 
022700 
001374 
012777 
012777 
012777 

12777 
052777 
052777 
052777 
113777 
106437 


005037 
013727 
000000 
005337 
001375 
105737 
001002 
000137 
005237 
001362 
104007 
104011 
000137 
000000 





000033 
022464 


001364 
001366 
000001 
001364 


160124 


001422 
001462 


022204 
000340 
022106 
000340 
000100 
040000 
000040 
001364 
030336 


022104 
007204 
022044 
022462 


022362 
022104 


022434 
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001122 
001360 


022462 


160114 
160110 
160104 
160100 
160034 
160026 
160020 
160026 


Fr -$XZ-ssecsesesasaszaassseaessess22 


pebeseseseseseaseaseseees TEST 33 sheeeeeeseseserseeeseeeceesere 
s*THIS TEST RUNS ALL LINES FULL BORE 

:*BASED UPON QUALIFIED LINES 

3#..THIS IS AN INTERRUPT TEST ON THE RECEIVER AND 


3 -$KXZ-seeseecceesezezesesesessse522 


FF PHERERHAEAAREAASEREREE ERED ASASAEEAEASE AEE AREEAASEEERAREEEES EES 


sLOAD THE NUMBER OF THIS TEST 
sPOINT TO THE START OF THE NEXT TEST 


3 -$MRESET-22222s2s2s2e22e2222ee222222-2 


sCLEAR DEVICE AND SET MAINT BIT IF I MODE 


sSET IMAGE OF TCR BITS 
sPICK UP PARAMETER 

3sPICK UP INIT POINTER 
sSHOULD THIS LINE BE SET UP 


3NO 

;SET UP LINE PARAM REGISTER 

= ‘EM ALL ? 

3N 

sCLEAR TRANS DATA POINTER & REC POINTERS 


sFINISHED ? 
sNO, CONTINUE CLEARING 
sSET UP REC INTR VECTOR 
sSTATUS 
sSET UP TRANS INTR VECTOR 
sSTATUS 
sSET REC INTR ENABLE 
sSET TRANS INTR ENABLE 
sSET MASTER SCAN ENABLE 
sSET TCR BITS...UP UP AND AWAY ! 
sALLOW INTERRUPTS 


sSET FOR DELAY 


sWAIT FOR ALL RECIEVERS TO FINISH 


s#TRANSMITTER FAILED TO INTERRUPT 
s*RECEIVER FAILED TO INTERRUPT 


3#TRANSMITTER 
3:@ TEST 33 
TST33: SCOPE 
MOV #33, $TSTNM 
: -- END O MACRO <<22ee2e22e22222222 
MOV &TST34,NEXT 
DCLASM 
: -- END O MACRO <<222222ee2eeee2e22 
MOV LINE ,RXTCR 
RSTART: MOV PAR,R1 
MOV #1,RO0 
INIT: BIT RO,LINE 
BEQ 1$ 
MOV R1,9D0ZLPR 
1$; INC R1 
ASLB RO 
BCC INIT 
MOV #TDO,RO 
INIT1: CLR C(RO)+ 
CMP #STOP,RO 
BNE INIT1 
MOV @RXSVC ,ADZRIV 
MOV #PR7,@DZRIS 
MOV #TXSVC ,aDZTIV 
MOV #PR7,90ZTIS 
BIS #RIE,@DZCSR 
BIS #TIE,@DZCSR 
BIS @MSENAB , 8DZCSR 
MOVB LINE ,@DZTCR 
MTPS Oe¢LESS1 
SNAP: CLR 66$ 
67$: MOV DLYCNT ,(PC)-+ 
68$: 0 
DEC 68$ 
BNE .-4 
TSTB RXTCR 
BNE 3$ 
JMP OUT 
3$: INC 66$ 
BNE 67$ 
ERROR 7 
ERROR 11 
JMP FINI 
€6$: i?) 
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022106 
022112 
022114 
022116 


022122 
022126 
022130 
022134 

22140 
022142 
022144 
022146 
022150 
022154 
022156 
022160 
022162 
022170 
022174 
022°*s 
0222b2 


022204 
022210 
022212 
022214 
022220 
022222 
022224 
022230 
022234 
022242 
022244 
022246 
022250 
022252 
022254 
022260 
022262 
022264 
022270 
022272 
022274 
022276 
022300 
022304 
022306 
022310 
022314 
022316 
022322 
022324 
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005777 
100401 
104003 
117703 


042703 
010304 
010337 
012702 
105303 
100402 
006302 
000774 
030237 
001001 
104010 
006304 
116477 
105264 
001002 
040277 
AQI0L2 


105777 
100401 
104004 
017704 
010403 
000303 
042703 
010337 
032777 
001401 
104000 
005704 
100401 
104023 
032704 
001401 
104000 
012702 
105303 
100402 
006302 
000774 
030237 
001001 
104011 
013703 
006302 
126304 
001405 
016305 





157730 


157722 
177770 


001372 
000001 


001364 


001422 
001422 


157654 


157632 


157626 


177770 
001372 
020000 


070000 


000001 


001364 


001372 
001442 
001442 
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TRANS INTR SVC ROUTINE 
@0ZCSR 


157676 


157600 


TXSVC: 


3$: 


4$: 


TST 

BMI +4 

ERROR 3 

MOVB OHOZCSR,R3 
sNOW TEST FOR LINE # ETC 

BIC @tC<7>,R3 

MOV R3,R4 

MOV R3,SAVLIN 

MOV #1,R2 

DECB R3 

BMI 4$ 

ASL R2 

BR 3$ 

BIT R2,LINE 

BNE +4 

ERROR 10 

ASL R4 

MOVB TDOCR4),@DZTOR 

INCB TDOCR4 ) 

BNE 5$ 

BIC R2,aDZTCR 

RTI 


5$: 


sREC INTR ROUTINE 


RXSVC: 


S$: 


6$: 





SEQ 94 


sTRANS INTR ? 


s#TRANSMITTER FAILED 
sSAVE IT 


sSTRIP JUNK 

sSAVE 

sADJUST LOCATION FOR ERROR PRINTOUT 
:SET UP POSITION POINTER 
:IS IT THIS LINE ? 

sYES 

;UP THE LINE # 

;GO ‘ROUND AGAIN 

sVALID LINE? 

;YES 

sNO, INVALID LINE!!!! 
sMAKE POWER OF 2 

;LOAD CHARACTER 

;SET UP NEXT CHARACTER 
sLAST CHARACTER ? 

sYES ,CLEAR TCR BIT 


> DONE ? 


sFALSE INTERRUPT 
sSAVE IT 


sSTRIP JUNK 
sSAVE LINE NUMBER 
sSILO ALARM? 


3NO 
;SILO ALARM SHOULD NOT =1 
sDATA VALID SET? 


YES 
;YOU LOSE ..-DATA VALID WAS‘NT SET 


sRECEIVER ERROR FLAG/S WERE SET 
sSET UP POSITION POINTER 


sRE POSITION POINTER 
3GO ‘ROUND AGAIN 
sLINE VALID ? 


;YES 

sINVALID LINE #¢ 

;GET THE LINE NUMBER AGAIN 

;USE R3 AS A POINTER IN THE DATA TABLE 
;DOES THE DATA CHARACTER COMPARE ? 


TST aD0ZCSR 

BMI +4 

ERROR 4 

MOV @DZRBUF ,R4 
MOV R4,R3 

SWAB R3 

BIC #tC<7>,R3 
MOV R3,SAVLIN 
BIT #SILOAL,@DZCSR 
BEQ +4 

ERROR 

TST R4 

BMI +4 

ERROR 23 

BIT #OVRRUN!FRMERR !PARER ,R4 
BEQ -¢ 

ERROR 

MOV #1,R2 

DECB R3 

BMI 5$ 

ASL R2 

BR 5$ 

BIT R2,LINE 
BNE +4 

ERROR 11 

MOV SAVLIN,R3 
ASL R3 

CMPB TROCR3),R4 
BEQ 2s 

MOV TROCR3),R5 


YES 
sSAVE EXPECTED 





LL ttt eee 
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9506 022330 042704 177400 BIC @t0<377>,R4 ;CLEAR JUNK 
9507 sR2 = LINE # BY BIT POSITION 
9508 3R4 = ACTUAL DATA 
9509 sRS = EXPECTED DATA 
9510 022334 104005 ERROR 5 +#NO, DATA DOES NOT COMPARE 
9511 022336 005263 001442 2s: INC TROCR3) s;SET UP FOR NEXT CHARACTER 
9512 022342 105763 001442 TSTB TROCR3) ;ALL CHARS DONE? 
9513 022346 001002 BNE -*6 
9514 022350 040237 022462 BIC R2,RXTCR ZERO LINE DONE INDICATOR. 
9515 022354 012716 022034 MOV @SNAP , (SP) sRESET THE BACKGROUND TIMING LOOP 
9516 022360 000002 RTI 
9517 
9518 
9519 sFINISH UP ROUTINE 
9520 022362 106427 000340 OUT: MTPS #PR7 sSTOP ALL INTERRUPTS 
9521 022366 104413 DEVICE.CLR s;CLEAR ALL INTERRUPTS AWAY 
9522 022370 005003 CLR R3 
9523 022372 005037 001372 CLR SAVLIN 
9524 022376 012702 000001 MOV #1,R2 
9525 022402 030237 001364 1$; BIT R2,LINE sVALID LINE ? 
9526 022406 001405 BEQ 2s 3NO 
9527 022410 022763 000400 001442 cmp #400, TROCR3) sRECEIVED A BINARY COUNT PATTERN ? 
9528 022416 001401 BEG +4 YES 
9529 022420 104027 ERROR 27 sTHE LINE FAILED TO RECEIVE A FULL 
9530 sBINARY COUNT PATTERN 
9531 022422 005237 001372 2s: INC SAVLIN sSET UP FOR NEXT LINE 
9532 022426 005723 TST C(R3)+ ;ADD 2 
9533 022430 106302 ASLB R2 sSET UP NEXT LINE POINTER 
9534 022432 103363 BCC 1$ sFINISHED ? 
9535 022434 FINI: - 
9536 022434 013777 002074 157430 MOV DOZRIS,@DZRIV sRESTORE TRAPCATCHER 
9537 022442 005077 157426 CLR a0ZRIS 
9538 022446 013777 002100 157422 MOV OZTIS, @ZTIV 
9539 022454 005077 157420 CLR adZTIS 
9540 022460 104400 ADVANCE +GO TO THE NEXT TEST 
oees 022462 000000 RXTCR: O sRX IMAGE OF TCR BITS 
4 
9543 
9544 3 -$XZ-s22sesseeeseseeeee222e2e22e222 
(2) peek eeheeece ease eeeeeeeee TEST 34 sh ccaccbeddkasha ck cehashckeeeeae 
9545 3#DZ11 RELATIVE TIMING TEST. 
9546 ;*EACH SELECTED LINE WILL IN TURN RUN 16. CHARS 
9547 ;*AT ALL BAUD RATES AND THEN THE HIGHEST BAUD 
9548 s#WITH ALL CHAR LENGTHS. EACH NEW PARAMETER SHOULD 
9549 s*DECREASE IN TIME FROM THE PREVIOUS PARAMETERS SELECTED. 
9550 s*THE TIME IS CHECKED AGAINST THE LAST PARAMETER USED 
9551 s* AND A LOWER TIME IS EXPECTED ON THE CURRENT PARAMETER. 
9552 ;*PARAMETERS ARE: 
9553 ;* EIGHT BITS/PER/CHAR - TWO STOP BITS AT 
9554 7% 50, 75, 110, 134.5, 150, 300, 600, 1200, 1800, 2000 
9555 3* 2400, 3600, 4800, 7200, 9600 BAUD. 
9556 +* THEN, 9600 BAUD - TWO STOP BITS AT 
9557 7* SEVEN, SIX, FIVE BITS/PER/CHAR. 
9558 s*AFTER EACH LINE HAS FINISHED ALL THE ABOVE PARAMETERS 
9559 ;#THE NEXT SELECTED LINE IS THE TESTED. 
95690 ; -$XZ-s2s2sss2ssss2s22222=2ssss2e225 
a nS ae ee A ee a ee 








CZDZA-10 
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022464 
022466 


022474 
022502 
022510 
022516 
022522 
022526 
022532 
022540 
022546 
022554 
022556 
022564 
022570 
022572 
022576 
022600 
022604 
022612 
022620 
022624 
022630 
022632 
022634 


022634 


022636 
022644 
022652 
022656 
022660 
022662 
022666 
022670 
022672 
022674 
022676 
022702 
022710 
022716 
022724 
022732 
022740 
022746 
022754 
022760 
022762 
022766 
022770 
0227/2 
022774 
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000004 
012737 


012737 
012737 
012737 
005037 
005037 
005037 
012737 
012737 
033737 
001027 
012737 
012700 
005020 
022700 
001374 
005237 
042737 
053737 
005037 
106337 
103346 
104400 


104417 


042737 
013777 
005737 
100011 
000241 
006037 
103002 
000241 
000401 
000261 
006137 
052737 
013777 
013737 
042737 
042737 
053737 
. 013737 
012700 
005020 
022700 
001374 
005002 
005003 
005037 





000034 


000002 
023174 
022634 
025242 
001372 
001374 
000001 
010070 
001216 


010070 
001422 


001462 


001374 
000007 
001374 
025242 
001216 


010000 
023172 
001370 


023172 


023172 
010000 
023172 
023172 
177770 
000907 
001374 
023172 
001422 


001462 


001220 





001122 


001226 
001360 
001362 


001216 
023172 
001364 


023172 


023172 
023172 


023172 
157200 


023172 
157134 
001372 
001372 
023172 
023172 
001400 


PATS tse eee Fw | 
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3: TEST 34 
Ehddhbhhedbet LLL eLLLLL LLL Li Lit iti Lire rT TTT TTT TTT TTT TT TTT TTT TTT 
TST34: SCOPE 

MOV #34, $TSTNM ;LOAD THE NUMBER OF THIS TEST 


; -- END 0 MACRO 
MOV 


#2,$TIMES 


MOV #TST35 ,NEXT sPOINT TO THE START OF THE NEXT TEST 
MOV #3$,LOCK ;SET FOR LOOP 
CLR OFFSET sRESET THIS VARIABLE 
CLR SAVLIN sRESET LINE NUMBER INDICATOR 
CLR XMTLIN sUSE THIS WORD TO TELL WHAT LINE TRANSMITTED 
MOV #1,$TMPO sUSE $TMPO AS A BIT POINTER 
MOV @RCVON!SSO!EIGHT!TWOSTOP,7$ ;BUILD TEMPORARY PARAMETERS 
1$: BIT $TMPO,LINE sIS THIS LINE ACTIVE? 
BNE 3$ sIF SO, GO GET STARTED 
2s: MOV @RCVON!SSO!EIGHT!TWOSTOP,7$ ;LOAD PARAMETERS TEMPORARILY 
MOV #TDO,RO sPOINT TO THE DATA AREA 
CLR CRO)+ s;CLEAR A DATA WORD 
CMP #STOP,RO sFINISHED ? 
BNE .-6 3NO 
INC XMTLIN sPOINT TO THE NEXT LINE TO TRANSMIT 
BIC #7,7$ sMAKE SURE TEMPORARY PARAMETERS POINT TO 0 
BIS XMTLIN,7$ sADD DESIRED LINE NUMBER 
CLR OF FSET 
ASLB $TMPO sPOINT TO THE NEXT LINE 
Bcc 1$ sPROCESS THE NEXT LINE 
- ADVANCE sTEST TO SEE IF THIS TEST GETS REPEATED 
3 -$MRESET-2=222s2sss2s22es22222eeess222= 
DCLASM sCLEAR DEVICE AND SET MAINT BIT IF I MODE 


; -- END O MACRO =222ss22s2s222222222= 


BIC #RCVON,7$ ;ZERO PARAMTERS FOR TX LINE 
MOV 7$,9D0ZLPR ;LOAD PARAMTERS FOR TX 
TST MODE ; STAGGERED? 
BPL 100$ :BR IF NO 
CLC ;SET UP LINE 
ROR 7$ 8 
BCC 98$ ;BR IF LINE WAS EVEN 
CLC sPREPARE TO MKE LINE EVEN 
BR 99$ ; CONTINUE 
98$: SEC sPREPARE TO MAKE LINE ODD 
99$: ROL 7$ ;SET ALTERED LINE 
100$: BIS #RCVON,7$ ;SET RX ON 
MOV 7$,9DZLPR ;LOAD RX PARAMETERS 
MOV 7$,SAVLIN sADJUST LOCATION FOR ERROR PRINTOUT 
BIC #tC<7>,SAVLIN ;STRIP JUNK 
BIC #7,7$ ;CLEAR OLD LINE # 
BIS XMTLIN,7$ ;SET LINE UP AGAIN 
MOV 7$,REGIST sSAVE PARAMETERS FOR PRINTOUT 
MOV #TDO,RO sPOINT TO THE DATA AREA 
CLR C(RO)+ ;CLEAR A DATA WORD 
CMP #STOP,RO sFINISHED ? 
BNE .-6 :NO 
CLR R2 sUSE R2 TO COUNT TOTAL NUMBER OF TRANSMISSIONS 
CLR R3 sUSE R3 TO COUNT TOTAL NUMBER OF RECEPTIONS 
CLR $TMP1 sINITIALIZE THE TIMER 





CZ0ZA-I0 
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9608 023000 
9609 023004 


9637 023172 


023174 
023176 


023204 
023212 
023216 
023220 


023222 


BLOQ&LOQ_OQx_QOQ_Q_OQ_OQOQ_QOQOQ_OQ_OQ_Q_QaaaOAOO 


FPNMNNFP RP WWWUOWN PRP RRR Ree eee Ww 
i i i i di di i ed a ed dh a he 





SEQ 97 
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005037 
012737 
012777 
012777 
013777 
013777 
113777 
052777 
106427 
032777 
001407 
005237 
001371 
105237 
001366 
104011 
004737 
104401 
062737 
013700 
042700 
022700 
001010 
032737 
001602 
162737 
000625 
062737 
000621 
000000 


000004 
012737 


012737 
005737 
100112 
104417 


013701 
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001224 
000020 


000035 


023446 
001370 


001366 


00136 
-57055 
157044 
157040 
157036 
157006 
156764 


156752 


‘025242 — 


023172 
023172 
023172 


001122 
001360 


CZDZA DZ11 DEVICE DIAGNOSTICS. 


CLR $TMP3 sINITIALIZE THESE BITS ALSO 

MOV #20, XMTCNT sSET HOW MANY CHARACTERS TO TRANSMIT 
MOV @XMTSRV, @OZTIV 

MOV @RXISR1,9OZRIV 

MOV . OZPRT,@DZRIS 

MOV DZPRT,@0ZTIS 

MOVB $TMPO,@D0ZTCR sSTART THE VALID LINE 

BIS #TIE!RIE !MSENAB, @0ZCSR 


MTPS #0 sLOWER THE PRIORITY TO ALLOW INTERRUPTS 
4$: BIT @RIE ,80ZCSR sIS ROUTINE DONE? 

BEQ 5$ sWHEN ALL IS DONE RX IE IS CLEARED IN ISR. 

INC $TMP1 sCOUNT TIME 

BNE 4$ sCONTINUE TEST 

INCB $TMP3 sDOUBLE COUNT 

BNE 4s sCONTINUE TEST 

ERROR i1 sINTERRUPTS NOT FINISHED . 
5$: JSR PC,SERV.G . . 5<tG>? ) 

. + SCOP4 ' ;LOOP? 
ADD #2 ,OFF SET 
MOV 7$,RO0 


BIC 8tC<17#400>,RO 
CMP #<16%400>,RO 


BNE 6$ 
BIT #BIT4+BIT3,7$ 
BEQ 2$ 
SUB #BIT3,7$ 
BR 3$ 
6$: ADD #400,7$ 
BR 3$ 
7$: 0 


; pe yer enna tna te ty 
3 -$ ~-SSSssesesesseseseeesessestsesseseszseses=z 

peekeheb ee eeheeekakeeeeee TEST 35 shee cece cece cece cece cece cckhak 

;* THIS TEST VERIFIES THAT EVEN PARITY WORKS 

;* FOR ALL ODD LINES SELECTED AND THAT ODD PARITY WORKS FOR ALL 

;* EVEN LINES SELECTED. 

3*#THE MAIN FUNCTION OF THIS TEST IS TO VERIFY 

s*THAT “PE” (PARITY ERROR) CAN BE FLAGGED BY 

3#THE UARTS. THIS TEST WILL NOT BE DONE UNLESS 

+*YOU ARE IN “STAGGERED” MODE. 

3*#40(8) CHARS ARE USED FOR THIS TEST. 

s*#ALL SELECTED LINES WILL BE ENABLED 

3*AT THE SAME TIME! 


3:# TEST 35 
gs 
5 RARER AREER E AE REEEEAREEAAREEEEEAAEEEEAAEAEAAREREAAEARAAAEAKE ERE 


TST35: SCOPE 


; -$XZ-ss2esess222322222252232525255523 


MOV #35, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
3; -- END O MACRO 2222222222222222222 

MOV #TST36,NEXT sPOINT TO THE START OF THE NEXT TEST 

TST MODE ;IS THIS STAGGERED MODE? 

BPL 6$ ;IF NOT, DON'T DO THIS TEST 

; -$MRESET -222 :s2s2sseeen2e2sese2se25E5 

DCLASM ;CLEAR DEVICE AND SET MAINT BIT IF I MODE 
3 -- END 0 MACRO 22222222222 222s2222 

MOV PAR,R1 ;USE R1 TO BUILD PARAMETERS TO BE LOADED 












SEQ 96 
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(1) 023226 042701 000200 BIC #ODDPAR,R1 sMAKE SURE ODD PARITY ISN'T SET 

(1) 023232 052701 000100 BIS @PARITY,R1 sMAKE SURE PARITY IS TURNED ON 

(1) 023236 012702 000001 MOV #1,R2 ;USE R2 AS A LINE POINTER 

(1) 023242 030237 001364 1$: BIT R2,LINE ;IS THIS A VALID LINE? 

(1) 023246 001411 BEQ 3$ :IF NOT, SKIP TO THE NEXT LINE 

(1) 023250 032701 000001 BIT #BITO,R1 ;IS THIS LINE AN ODD LINE? 

(1) 023254 001002 BNE 2$ ;IF IT'S ODD, USE EVEN PARITY 

(1) 023256 052701 000200 BIS #ODDPAR,R1 ;IF IT'S EVEN, USE ODD PARITY 

(1) 023262 010177 156564 2$: MOV R1,9DZLPR ;LOAD THE LINE PARAMETER REGISTER 

(1) 023266 042701 000200 BIC #O0DDPAR,R1 ;SET UP THE NEXT PARITY TO EVEN 

(1) 023272 005201 3$: INC R1 ;POINT TO THE NEXT LINE 

(1) 023274 106302 ASLB R2 sMOVE THE BIT POINTER IN R2 TO THE NEXT LINE 
(1) 023276 103361 BCC 1$ ;IF WE'RE NOT DONE, GO CHECK THE NEXT LINE 
(1) 023300 005037 001372 CLR SAVLIN ;CLEAR THE LINE NUMBER INDICATOR 

(1) 023304 005002 CLR 2 sUSE R2 TO COUNT TOTAL NUMBER OF TRANSMISSIONS 
(i) 023306 005037 024660 CLR COUNTO + 332-10-84 ECB REV I 

(1) 023312 005037 024662 CLR COUNT1L ; 332-10-84 ECB REV I 

(1) 023316 005003 CLR 3 sUSE R3 TO COUNT TOTAL NUMBER OF RECEPTIONS 
(1) 023320 012737 000040 001376 MOV #40, XMTCNT ;TRANSMIT A BINARY COUNT PATTERN(00-40) 
(1) 023326 012700 001422 MOV #TDO,RO sPOINT TO THE DATA AREA 

(1) 023332 005020 CLR CRO)+ ;CLEAR A DATA WORD 

(1) 023334 022700 001462 CMP #STOP,RO sFINISHED ? 

(1) 023340 001374 BNE .-6 ;NO 

(1) 023342 005000 CLR RO ;CLEAR OFFSET 

(2) 3 -SINTSET-2s2s2sss2seesse2e2ees22222222 
(2) 023344 012777 024664 156524 MOV #XMTSRV,@OZTIV ;SET UP THE TRANSMITTER INTERRUPT VECTOR 
(2) 023352 012777 024506 156512 MOV #PARESE,@DZRIV ;SET UP THE RECEIVER INTERRUPT VECTOR 

(2) 023360 013777 030334 156506 MOV DZPRT,@DZRIS ;SET THE INTERRUPT VECTOR STATUS 

(2) 023366 013777 030334 156504 MOV DZPRT, @0ZTIS ;SET TRANSMITTER INTERRUPT PRIORITY 

344 023374 052777 040140 156440 I nniiln memes. »8DZCSR ;ENABLE THE DEVICE 

(1) 023402 113777 001364 156446 MOVB LINE ,@DZTCR sENABLE ALL SELECTED LINES 

(1) 023410 106427 000000 MTPS #0 sALLOW INTERRUPTS 

(1) 023414 032777 000100 156420 5$: BIT #RIE,aDZCSR sWHEN RX DONE; RIE WILL =0 

(1) 023422 001410 BEQ 6$ ;BR IF ALL DONE 

(1) 023424 104414 DELAY + 33 2-10-84 ECB REV I 

(1) 023426 005237 024669 INC COUNTO 

(1) 023432 102770 BVS $ 

(1) 023434 105237 024662 INCB COUNT1 

(1) 023440 100365 BPL 5$ 

(1) 023442 104011 ERROR i 3#RX FAILED TO FINISH CINTERRUPT) 

(1) 023444 104400 6$: ADVANCE sADVANCE LOOP 

(1) 3 -- END O MACRO =#2222222222ess22222 
9639 3 -$PARTS]T-s22s2ss222222s2s2222222222222225 
(2) ; -$XZ-sessseseecesessssssasseseses= 

(3) peebeehe shee seseecesceeee TEST 36 shee ceae bead ce sede be ececcecaane 
(1) ;*THIS TEST VERIFIES THAT ODD PARITY WORKS FOR ALL ODD LINES 

(1) ;* SELECTED AND THAT EVEN PARITY WORKS FOR ALL EVEN LINES SELECTED 
(1) ;*#THE MAIN FUNCTION OF THIS TEST IS TO VERIFY 

(1) ;*THAT “PE” CPARITY ERROR) CAN BE FLAGGED BY 

(1) 3*THE UARTS. THIS TEST WILL NOT BE DONE UNLESS 

(1) ;*YOU ARE IN “STAGGERED” MODE. 

(1) 3#40(8) CHARS ARE USED FOR THIS TEST. 

(1) ;*#ALL SELECTED LINES WILL BE ENABLED 

(1) 3#AT THE SAME TIME! 

(2) : -$XZ-2s2s2222222522233532532223255 





CZ0ZA-I0 
CZOZAI Pil 


AWW 


DT cD ae Te ee ee ee ee ee ee ee ee ee ee et 
TD PD 
eit a a hhh 

So 
@ 
s 
> 


1) 023534 

1) 023540 
(1) 023544 
C1) 023546 
(1) 023550 
(1) 023552 
(1) 023556 
(1) 023560 
(1) 023564 
(1) 023570 
(1) 023572 
(1) 023600 
(1) 023604 
(1) 023606 
(1) 023612 
(1) 023614 
(2) 
(2) 023616 
(2) 023624 
(2) 023632 
(2) 023640 
(2) 023646 
(2) 
(1) 023654 
(1) 023662 
(1) 023666 
(1) 023674 
(1) 023676 
(1) 023700 
(1) 023704 
(1) 023706 
(1) 023712 
(1) 023714 
(1) 023716 
(1) 


- 


SEQ 99 
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000004 
912737 


012737 
005737 
100112 


104417 


013701 
042701 
052701 
012702 
030237 
001411 
032701 
001402 
052701 
010177 
042701 
005201 
106302 
103361 
005037 
005002 
005037 
005037 
005003 
012737 
012700 
005020 
022700 
001374 
005000 


012777 
012777 
013777 
013777 
052777 


113777 
106427 
032777 
001410 
104414 
005237 
102770 
105237 
100365 
104011 
104400 





000036 


023720 
001370 


001366 
000200 
000100 
000001 
001364 


000001 
000200 


156312 
000200 


001372 


024660 
024662 


000040 
001422 


001462 


024664 
024506 
030334 
030334 
040140 


001364 
000000 
000100 
024660 


024662 





001122 
001360 


001376 


156252 
156240 
156234 
156232 
156166 


156174 
156146 


CZOZA 0Z11 DEVICE DIAGNOSTICS. 


3:* TEST 36 


5 FE RERRREEREREAEEAEREEEAERERAAAARAEAEAEAAAERAERAREEAREREREEARRAREREE 


TST36: 
MOV 
; -- END 0 MACRO 


; -- END 0 MACRO 
MOV 


1$; 


2s: 
3$: 


8 
; -- END 
M 


5$: 


6$: 


3: -- END O MACRO =<2=s2ss2s222222s2225 


SCOPE 


MOV 
TST 
BPL 


OCLASM 


Ove 


ADVANCE 


#36, $TSTNM 


sLOAD THE NUMBER OF THIS TEST 


#TST37,NEXT 


MODE 
6$ 


sPOINT TO THE START OF THE NEXT TEST 
sIS THIS STAGGERED MODE? 
sIF NOT, DON’T DO THIS TEST 


3 -$MRESET-222sssessseeeeeseeeeee222222 


;CLEAR DEVICE AND SET MAINT BIT IF I MODE 


PAR,R1 
#ODDPAR ,R1 
#PARITY,R1 
#1,R2 
R2,LINE 

3$ 
#BITO,R1 
2$ 


#ODDPAR ,R1 
R1,@0ZLPR 
#ODDPAR,R1 


#40, XMTCNT 
#TDO,RO 
(RO)+ 
#STOP,RO 
.-6 

RO 


#XMTSRV, @OZTIV 
#PARESE , AOZRIV 
DZPRT, @DZRIS 
DZPRT, @DZTIS 


sUSE Ri TO BUILD PARAMETERS TO BE LOADED 
sMAKE SURE CDD PARITY ISN‘T SET 

sMAKE SURE PARITY IS TURNED ON 

sUSE R2 AS A LINE POINTER 

sIS THIS A VALID LINE? 

sIF NOT, SKIP TO THE NEXT LINE 

sIS THIS LINE AN ODD LINE? 

sIF IT'S EVEN, USE EVEN PARITY 

sIF IT'S OOD, USE ODD PARITY 

sLOAD THE LINE PARAMETER REGISTER 

sSET UP THE NEXT PARITY TO EVEN 

sPOINT TO THE NEXT LINE 

sMOVE THE BIT POINTER IN R2 TO THE NEXT LINE 
sIF WE'RE NOT DONE, GO CHECK THE NEXT LINE 
sCLEAR THE LINE NUMBER INDICATOR 

sUSE R2 TO COUNT TOTAL NUMBER OF TRANSMISSIONS 
+ 332-10-84 ECB REV I 

+; 332-10-84 ECB REV I 

sUSE R3 TO COUNT TOTAL NUMBER OF RECEPTIONS 
sTRANSMIT A BINARY COUNT PATTERN(00-40) 
sPOINT TO THE DATA AREA 

sCLEAR A DATA WORD 

sFINISHED ? 


3NO 

;CLEAR OFFSET 

3; -$INTSET-=22ss2s22ssese2ssessee222222 
sSET UP THE TRANSMITTER INTERRUPT VECTOR 
s;SET UP THE RECEIVER INTERRUPT VECTOR 
;SET THE INTERRUPT VECTOR STATUS 

s;SET TRANSMITTER INTERRUPT PRIORITY 


RIE! TIE!MSENAB,@0ZCSR ;ENABLE THE DEVICE 


O MACRO #222s2sssessee22225 


LINE ,@OZTCR 
#0 
#RIE ,@D0ZCSR 
6$ 


sENABLE ALL SELECTED LINES 
;ALLOW INTERRUPTS 

sWHEN RX DONE; RIE WILL =0 
;BR IF ALL DONE 

+ 33 2-10-84 ECB REV I 


s#RX FAILED TO FINISH (INTERRUPT) 
sADVANCE LOOP 





CZDZA-I0 
CZ0ZAI.P 11 


(4) 023720 
(2) 023722 


(1) 023730 


9655 023736 
9656 023744 
9657 023746 
9658 023750 
9659 023750 
9660 023754 
9661 023760 
9662 023766 
9663 023772 
9664 024000 
9665 024006 
9666 024012 
9667 024016 


9670 024022 


9672 024024 
9673 024026 
9674 024034 
9675 024042 
9676 024050 
9677 024054 


9680 024062 
9682 024066 
9684 024070 
9685 024072 
9686 024076 


9688 024100 
9689 024104 


t- 
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000004 
012737 


012737 


032777 
001001 
104400 


106427 
013700 
012737 
012701 
012737 
012737 
005037 
005037 
012711 


000473 


022626 
012737 
012737 
012737 
012701 
012761 


012711 
000451 
022626 
010037 
104400 


005237 
000002 





000037 
004712 
000040 


000000 
000004 
024024 
177546 
024100 
000340 
024110 
024106 
000100 


024070 
024100 
000340 
172540 
177777 


000133 


000004 


024106 





1052) 02-JUL 
17 


001122 
001360 
155214 


000004 


000100 
000102 


000004 
000104 
000106 


000002 
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3* 
; -$XZ-s22sesseseseeeeeeseeee2e22222 
3:@ TEST 37 
§ FERRE KERAEEAEAEEEEEEEAEAAEEREAAAEAAEAEERAREEASEAKRAAAR RR RERREREREEE 
TST37: SCOPE 
MOV #37,$TSTNM sLOAD THE NUMBER OF THIS TEST 
; -- END 0 MACRO ==222ss222222ee2e2s2 

MOV #$EOP,NEXT sPOINT TO THE END-OF-PASS HANDLER 

BIT “BITS, @SWR ;RUN THIS TEST? 

BNE 1$ ; BRANCH IF YES 

ADVANCE ; OTHERWISE, BYE 

1$: 

MTPS #0 sDROP PRIORITY TO 0 

MOV 8#4,RO0 sSAVE CONTENTS OF LOCATION 4. 

MOV #10$ 004 ;SET TO TRAP IF NOT KW1LiL 

MOV #177546,R1 sGET KW1iL ADDRESS. 

MOV #CLKSRV, 8100 sSET FOR INTERRUPT. 

MOV #340 ,8%102 sPRORITY 7 ON INTERRUPT. 

CLR BCOUNT s;OUR OWN CLOCK TICK COUNTER 

CLR CCOUNT sCHAR SENT COUNTER 

MOV #100,(R1) sTHIS WILL CAUSE A BOMB TO OCCUR IF 
s;THE KWiiL DOES NOT EXIST 
sBUT IF ITS THERE, THEN WE'RE STARTED. 

BR TCCONT sSTART TEST 

10$: CMP (SP)+,(SP)+ sREADJUST STACK 

MOV #20$ , O44 ;SET TO TRAP IF NO KW11iP 

MOV #CLKSRV, 8#104 sSET FOR INTERRUPT. 

MOV #340 ,84106 sPROITY 7 ON INTERRUPT. 

MOV #172540,R1 ;KW11P ADDRESS. 

MOV #-1,2CR1) sSET THE # OF COUNTS FOR INTERRUPT (1) 
sNOTE, IF KW11P DOES NOT EXIST, THEN 
sWE WILL BOMB FROM THIS PLACE. 

MOV #133,(R1) sSET INTERRUPT ENABLE,UP COUNT,REPEATED 
sINTERRUPT,LF CLOCK, AND RUN. 

BR TCCONT sSTART TEST. 

20$: CMP (SP)+,(SP)+ sREADJUST STACK, NO CLOCKS AT ALL! 

MOV RO, 04 sRESTORE LOCATION 4 

ADVANCE ;GET OUT. 

CLKSRV: INC CCOUNT sCLOCK INTERRUPTS TO HERE, UPDATE COUNT. 

RTI ;THEN EXIT. 























SEQ 100 


-$XZ-sessseeseseseeessesesse22222 
peee ee ee ee ee eeeeeeeeeeeae TEST 37 shee ease se ee seeeeeeesaseasaace 
Hd 
+* ECB 21-FEB-84 
+* BAUD RATE TIMING TEST. THIS TEST ADDED IN ORDER TO TEST CRYSTAL 
s* SPEEDS. IT LOOKS FOR EITHER A KW1iL OR KWL1P. IF EITHER IS AVAIL. 
s* THEN THE TEST IS RAN. IF NEITHER AVAILABLE, THEN TEST IS NOT RAN. 


;* 

7* KR = 18-JUN-84 

;* ADDED NUMBERS IN TTABLE AND NOW TEST ALL LINES AT ALL BAUD RATES 
s+* INSTEAD OF JUST LINE 0 AT ALL BAUD RATES. 


CZ0ZA-I0 
CZOZAI.Pil 


024106 
024110 
024112 
024114 


024116 
024122 
024126 
024132 
024136 


024142 
024146 
024152 
024156 
024162 


024166 
024172 
024176 
024202 
024206 
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000000 
000000 
000000 
000000 


000007 
000014 
000021 
000024 
000025 


000050 
000114 
000224 
000334 
000364 


000444 
000664 
001104 
001544 
002204 


000005 
000007 
000013 
000014 
000016 


000035 
000072 
000164 
000255 
000300 


000347 
000533 
000716 
001265 
001635 
024212 





CZDZA D0Z1ii DEVICE DIAGNOSTICS. 


CCOUNT: .WORD 0 sINCREMENTED BY CLKSRV. @#CLOCK TICKS. 
BCOUNT: .WORD 0 sUSED BY TCCONT AS TIMER. 
DCOUNT: .WORD 0 sUSED BY TCCONT AS TIMER. 
ECOUNT: .WORD 0 sUSED BY ERROR REPORTING. 


3* 
; THESE NUMBER WHERE WORKING GREAT ON A PDP-11/24 RUNNING AT 60 HERTZ 


i 

sTTABLE:.WORD 5., 7. sCOUNT OF CHAF:‘S OUT 
; -WORD 7., 9. sCOUNT OF CHARS OUT 
; -WORD 11., 13. sCOUNT OF CHARS OUT 
; -WORD 13., 15. sCOUNT OF CHARS OUT 
: -WORD 15., 17. sCOUNT OF CHARS OUT 
; 

; -WORD 29., 32. sCOUNT OF CHARS OUT 
; -WORD 59., 62. sCOUNT OF CHARS OUT 
; -WORD 119., 122. sCOUNT OF CHARS OUT 
; WORD 179., 182. sCOUNT OF CHARS OUT 
; WORD 199., 202. sCOUNT OF CHARS OUT 
; 

; -WORD 239., 242. sCOUNT OF CHARS OUT 
; -WORD 359., 362. sCOUNT OF CHARS OUT 
; -WORD 479., 482. sCOUNT OF CHARS OUT 
; -WORD 719., 722. sCOUNT OF CHARS OUT 
; -WORD 959., 962. sCOUNT OF CHARS OUT 


50 BAUD 
7S BAUD 
110 BAUD 
134.5 BAUD 
150 BAUD 


300 BAUD 
600 BAUD 
1200 BAUD 
1800 BAUD 
2000 BAUD 


2400 BAUD 
3600 BAUD 
4800 BAUD 
7200 BAUD 
9600 BAUD 


3* 
; THESE NUMBER WHERE MODIFIED SO THEY WOULD WORK ON A 


; SO HERTZ MACHINE (TESTED ON PDP-11/70) AS WELL AS 
; AT 9600 BAUD THERE IS ABOUT 17% ERROR. 


; THE LOWER THE BAUD RATE THE LESS THE ERROR. 

; THIS TABLE WAS REDONE TO INCLUDE THE 2% ALLOWABLE 

; POSSIBILITY OF AN INCOMPLETE TICK AT THE START OF 

3- 

TTABLE: .WORD 5., 7. sCOUNT OF CHARS OUT 
-WORD 7., 12. sCOUNT OF CHARS OUT 
-WORD 11., 17. sCOUNT OF CHARS OUT 
-WORD 12., 20. sCOUNT OF CHARS OUT 
-WORD 14., 21. sCOUNT OF CHARS OUT 
-WORD 29., 40. sCOUNT OF CHARS OUT 
WORD 58., 76. sCOUNT OF CHARS OUT 
-WORD 116., 148 sCOUNT OF CHARS OUT 
-WORD 173., 220 sCOUNT OF CHARS OUT 
-WORD 192., 244 sCOUNT OF CHARS OUT 
WORD 231., 292. sCOUNT OF CHARS OUT 
WORD 347., 436. sCOUNT OF CHARS OUT 
-WORD 462., 580. sCOUNT OF CHARS OUT 
-WORD 693., 868. sCOUNT OF CHARS OUT 
-WORD 925., 1156. sCOUNT OF CHARS OUT 

ENDTTB =. sEND OF TTABLE 


60 HERTZ. 


ERROR RATE, PLUS THE 
THE TIMING. 


FOR 
FOR 
FOR 
FOR 
FOR 


FOR 
FOR 
FOR 
FOR 
FOR 


FOR 
FOR 
FOR 
FOR 
FOR 


50 BAUD 
75 BAUD 
110 BAUD 
134.5 BAUD 
150 BAUD 


300 BAUD 
600 BAUD 
1200 BAUD 
1800 BAUD 
2000 BAUD 


2400 BAUD 
3600 BAUD 
4800 BAUD 
7200 BAUD 
9600 BAUD 








SEQ 101 








CZ0ZA-1I0 
CZOZAI.Pil 


024212 
024216 
024222 


024230 
024234 
024236 
024242 
024244 
024250 
024252 
024254 


024256 
024264 
024270 


024274 
024300 


024304 
024310 
024314 


024320 
024326 
024330 
024334 
024336 
024344 
024350 
024352 
024354 


024356 
024362 
024370 
024372 
024376 
024400 
024404 
024406 
024414 
024416 
024422 
024426 
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010037 
005037 
012737 


005737 
001010 
005237 
001372 
005237 
001367 
005011 
104400 


012777 
012700 
012703 


110377 
012702 


010077 
005037 
005037 


022737 
001413 
005777 
100371 
112777 
005237 
102363 
005011 
104400 


005037 
022737 
001403 
005777 
100367 
023712 
103422 
023762 
101016 
062700 
062702 
022702 





000004 
024106 
177750 
024106 
024112 


024110 


000050 
000030 
000001 


155556 
024116 


155542 
024110 
024106 
000074 
155506 


000101 
024110 


024106 
000074 


155444 
024110 
024110 
000400 


000004 
024212 





024110 


155556 


024106 


155522 


024106 


000002 


CZDZA 0Z11 DEVICE DIAGNOSTICS. 


; CHECK OUT THE CLOCK 


TCCONT: MOV 
CLR 


10$: 


; 

s START XMITTING CHARACTERS TO ALL 8 LINES AT ALL BAUD RATES. 
; IF THE NUMBER OF CHARACTERS TRANSMITTED IS BETWEEN THE 

; TWO NUMBERS IN TTABLE THEN THE LINE IS OK, ELSE ERROR 

; 


20$: 


30$: 


40$: 


50$: 


60$: 


65$: 


#50, 8D0ZCSR 
#30,RO 
#1,R3 


R3,QD0ZTCR 
#TTABLE ,R2 


RO,@DZLPR 
BCOUNT 
CCOUNT 


#60. ,CCOUNT 
60 
BCOUNT 


CCOUNT 
#60. ,CCOUNT 
65$ 


80ZCSR 

60$ 
BCOUNT , (R2) 
70$ 

BCOUNT ,2(R2) 
70$ 

#400 ,RO 

4 ,R2 
#ENDTTB,R2 


SEQ 102 












sRESTORE LOCATION 4. 
sSTART WITH LINE CLOCK AT ZERO COUNT 
330-18MS LOOPS TO WAIT 


sWAIT FOR COUNT TO GO TO 1 TO AVOID 
sUSING THAT DANGEROUS FIRST COUNT! 
sBUT AS A SAFE GUARD, 

;DON‘T HANG HERE 


sCLEAR CLOCK 
sCLOCK NOT WORKING RIGHT- ABORT TEST 
sNOT THE FAULT OF THE DZ! 


sSET MSE AND MAINT. 
sSET BAUD RATE 50, 8 BIT CHAR LEN 
sHOLDS CURRENT LINE, START AT LINE 0 


sENABLE THE NEXT LINE TO XMIT 
sGET TABLE OF EXPECTED RESULTS 


sUPDATE THE BAUD RATE AND NEXT LINE 
sREUSE TIMER AS XMIT CHAR COUNTER 
sCLEAR CLOCK INTERRUPT COUNTER 


sLOOP FOR 60 CLOCK TICKS 

sEXIT WHEN THAT OCCURS. 

sREADY TO XMIT A CHAR? 

sNO, THEN WAIT 

sXMIT A CHAR 

sUPDATE XMIT COUNT, SHOULD NOT OVERFLOW. 
sIF NO OVERFLOW, CONTINUE 

sIF OVERFLOW, CLOCK COULD BE BAD, CLEAR IT 
sABORT THIS TEST IF CLOCK 10-2.’ 


sLOCP FOR 60 CLOCK TICKS 
sEXIT WHEN THAT OCCURS. 
; WAIT FOR LAST CHARACTER TO GO 
; SPIN IF NOT DONE 
ud COUNT < LOW 

THEN ERROR 
iF COUNT > HI 

THEN ERROR 
;NEXT BAUD RATE 
sGET NEXT PAIR OF NUMBERS 
sHIT END OF TTABLE? 





CZ0ZA-1I0 


CZDZAI .P1il 02-JUL-85 16:17 


024114 
000002 
177770 
001372 


007642 


024112 


155334 


177770 
001372 


010000 
002046 
000377 
001442 
110000 
001442 
001442 
177400 
177400 
001442 
024660 


005037 024662 
040000 155200 


001400 





; 
; ERROR 
3 


70$: 


CLR 
ADVANCE 
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sNO, CONTINUE TESTING ;HIS LINE 

sBRING THE BAUD RATE BACK TO SO 

sAND GET NEXT LINE NUMBER 

sMOVE ONTO THE NEXT LINE 

sIF NOT DONE WITH ALL LINES THEN CONTINUE 
sELSE STOP CLOCK 

sAND DO THE NEXT TEST 


- COUNTER NOT IN THE RANGE OF THE NUMBERS IN TTABLE 


CR1) 
(R2),ECOUNT 
2CR2),DCOUNT 
@tC<7>,RO 
RO,SAVLIN 
30 


PC, SERV.G 


;STOP CLOCK. 

sMOVE LOW COUNT FOR ERROR MESSAGE 
sMOVE HIGH COUNT FOR ERROR MESSAGE 
sSTRIP EVERYTHING BUT LINE NUMBER 
;MOVE LINE NUMBER FOR ERROR MESSAGE 
;COUNT TOO HIGH OR LOW 

3<tG?> 

300 NEXT TEST 


; 
sRECEIVER SERVICE ROUTINECPARITY TEST ONLY) 


i 
PARESE: 


10$: 


11$: 


12$: 


MOV 


@DZRBUF ,R4 
R4,R1 

Ri 
@tC<7>,R1 
R1,SAVLIN 
R4 

10$ 

23 


Ri 

OPARER ,R4 

11% 

OZRBUF ,REGIST 
R4,RS 

0377,R5 
TROCR1),RS 


sGET THE CHARACTER 

sCOPY THE RECEIVED INFORMATION 

sGET THE LINE NUMBER IN THE LOWER BYTE 
sISOLATE THE LINE NUMBER 

sFILL LOC. FOR ERROR PRINTOUT 

sWAS DATA VALID? 

sBRANCH IF YES 

sERROR - DATA VALID NOT SET! 

sALIGN IT ON A WORD BOUNDARY 
sPARITY ERROR SHOULD BE SET. IS IT? 
sIF SO, GO CHECK CHARACTER 

sSET UP FOR THE ERROR MESSAGE 


sGET THE CORRECT CHARACTER 


Pen ae sBUILD WHAT WAS EXPECTED 


TROCR1),R4 
12$ 
TROCR1),RS 
@tC<377>,R5 
@tC<377>,R4 
TROCR1) 

R3 

COUNTO 
COUNT1 
@TIE,@DZCSR 
13$ 

R2,R3 

13$ 


ui 


s*ERROR- DID NOT GET CORRECT INFORMATION 
sCHECK THE CHARACTER. IS IT CORRECT? 

sIF SO, GO SET UP NEXT CHARACTER 

sLOAD THE CHARACTER FOR ERROR REPORTING 
sCLEAR SIGN EXTEND 





SEQ 103 


sREMOVE THE JUNK FROM R4, THE ACTUAL CHARACTER 


sDATA ERROR 

s;SET UP THE NEXT CHARACTER 
sADD TO THE TOTAL RECEIVED COUNT 
sRESET COUNTERS TO NEXT 
sRECIEVER INTERRUPT 

sARE TRANSMISSIONS DONE? 

sIF NO, GO RECEIVE SOME MORE 
sARE ALL CHARACTERS RECEIVED? 
sIF NO, GO RECEIVE SOME MORE 
























SEQ 104 
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9859 024650 042777 000100 155164 BIC @RIE ,@OZCSR sDISABLE RECEIVER INTERRUPTS 
9860 024656 000002 13%: RTI sGO0 BACK TO RECEIVER WAIT LOOP 
9861 024660 000000 COUNTO: 0 
9862 024662 000000 COUNT1: 0 
9863 
9864 
9865 ; TRANSMITTER INTERRUPT SERVICE 
9867 ae Oke ee 
9868 024664 117701 155154 XMTSRV: MOVB @HDZCSR,R1 sGET THE LINE NUMBER. IS THE TRANSMITTER 
9869 024670 100411 BMI i$ sREALLY READY? IF SO, GO LOAD THE CHARACTER 
9870 024672 013700 001372 MOV SAVLIN,RO sADJUST LOCATION SAVLIN 
9871 024676 042701 177770 BIC @tC<7>,R1 sISOLATE THE LINE NUMBER 
9872 024702 010137 001372 MOV R1,SAVLIN sFOR ERROR PRINTOUT 
9873 024706 104003 ERROR 3 s#TRANSMITTER NOT READY- FALSE INTERRUPT i 
9874 024710 010037 001372 MOV RO,SAVLIN sRESET SAVLIN TO PREVIOUS VALUE 
9875 024714 042701 177770 1s: BIC @tC<7>,R1 sISOLATE THE LINE NUMBER 
9876 024720 006301 ASL R1 sMAKE SURE IT REFERENCES A WORD BOUNDARY 
9877 024722 116177 001422 155136 MOVB TOOCR1),@0ZTOR ;LOAD THE CURRENT CHARACTER FOR THIS LINE 
9878 024730 005261 001422 INC TOOCR1) ;SET UP NEXT CHARACTER FOR THIS LINE 
9879 § 9860064666 666606666660 066 0666064666646 646 064666 6660060006066060060406006466404 
9880 sCREV. FO: DELETED INC 
9881 §9O6046600664666466 66 666646646406 646466466 66466066066 006660660666406006006646468 
9882 024734 023761 001376 001422 CMP XMTCNT,TDOCR1) ;HAVE WE DONE ALL PATTERNS ON THIS LINE? 
9883 024742 001015 BNE 4$ sIF NOT, KEEP ON TRANSMITTING 
9884 024744 012700 900001 MOV #1,R0 sSET UP A DESELECTION POINTER 
9885 024750 006201 ASR Ri 3;GET THE LINE NUMBER AGAIN 
9886 024752 005301 2s: DEC R1 sREDUCE THE COUNT. WAS THIS THE LINE? 
9887 024754 100402 BMI 3$ sIF SO, GO DISABLE THE EMABLE BIT FOR IT 
9888 024756 006300 ASL RO sMOVE THE POINTER TO THE NEXT LINE 
9889 024760 000774 BR 2s 3GO0 CHECK THE NEXT LINE 
9890 024762 140077 155070 3$: BICB RO,@DZTCR sDISABLE THE LINE POINTED TO BY RO 
9891 024766 001003 BNE 4$ sIF MORE LINES ARE ACTIVE , GO CONTINUE TRANSMIT 
9892 024770 042777 040000 155044 BIC #TIE,@D0ZCSR sIF NOT, DISABLE TRANSMITTER INTERRUPTS 
9893 §9O466 0640064666 6466064646 6646066666 64666646 646646866 6046606 64666604060 646464664864 
9894 024776 005202 4$: INC R2 sUP THE NUMBER OF TRANSMISSIONS CREV. FO) 
9895 §99$ 00466646 446460646466 £646660646646 646604646646 4660460646 6606066666606 04606046400 4666484464 
at | 025000 000002 RTI sRETURN TO THE TIMING LOOP 
9898 3; RELATIVE TIME BUILDING ROUTINE 
+ a4 § Steswernnernreerenrceamereren 
9901 025002 012737 000004 001222 BUILD: MOV 04,8TMP2 sROTATE 4 BITS BACK INTO $TMP1 
9902 025010 006037 001224 18; ROR STMP3 ;GET THE BITS FROM $TMP3, THE HIGH BYTE 
9903 025014 006037 001220 ROR STMP1 ;OF THE RELATIVE TIME COUNTER. PUT THEM BACK 
9904 025020 005337 001222 DEC $TMP2 sINTO. $TMP1 USING THE CARRY BIT WITH 
9905 sROTATE INSTRUCTIONS 
9906 025024 001371 BNE 1$ sREDUCE COUNT. ALL BITS BACK? IF NOT, GET MORE 
9907 025026 000207 RTS PC sRETURN TO CALLING TEST 





CZ2DZA-10 
CZDZAI.P 11 


025162 
025166 
025174 
025200 
025202 
025204 
025212 
025214 
025220 
025224 
925230 
025232 
025240 
025242 


— 
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105777 
100401 
104004 
017704 
100401 
104023 
032704 
001403 
013700 
104002 
010401 
000301 
042701 
006301 
120461 
001413 
116105 
042705 
042704 
010137 
006237 
104005 
005261 
005203 
032761 
001402 
020203 
001401 
000002 
004737 


013700 
013760 
005737 
001414 
005740 
026037 
101007 
016005 
010137 
006237 
104021 
042777 
000002 
000000 


155006 


155002 


070000 
002046 


177770 
001442 
001442 
177400 
177400 
001372 
001372 
001442 


000020 


025002 
025242 
001220 
025242 
002102 
002102 
001372 
001372 


000140 





001442 


002102 


001220 


154602 


CZDZA 0Z11 DEVICE DIAGNOSTICS. 


SEQ 105 


sRECEIVER SERVICE ROUTINE 


RXISRi: TSTB 
1s: MOV 


2s: BIT 


33; MOV 


4$: INC 


S$: RTI 
6$: JSR 


7$: ate 
OFFSET: 0 


@0ZCSR 
1s 


4 
SOZRBUF ,R4 
es 


23 


sIS THE RECEIVER REALLY READY? 

sIF SO, GO SERVICE IT 

s#ERROR- RECEIVER DONE FLAG ISN’T SET 
sSAVE THE RECEIVER INFORMATION 

sIF IT WAS VALID, GO PROCESS IT 
sERROR- DATA VALID WASN’T SET 


GOVRRUN! FRHERR !PARER.. -R& ;ARE ANY ERROR FLAGS SET? 


OZRBUF ,RO 
2 

R4,R1 

R1 
#tC<7>,R1 
R1 


ee 
$ 
TROCR1),RS 
@t0<377>,R5 
#tC<377>,R4 
R1,SAVLIN 
SAVLIN 
TROCR1) 

R3 

#20, TROCR1) 
5$ 


R2,R3 
6$ 


uw 


PC ,BUILD 
OFFSET ,RO 


$TMP1, TMTBL(RO) 


OFFSET 
7$ 
-C(RO) 


TMTBL(RO), $TMP1 
7$ 


TMTBLC(RO),RS 
R1,SAVLIN 
SAVLIN 

21 


@RIE!MSENAB,@DZCSR ;DISABLE THE DEVICE 


sIF NOT, GO CONTINUE PROCESSING 

sSET UP FOR ERROR REPORTING 

sERROR- RECEIVER ERROR FLAG SET 

sCOPY THE RECEIVER INFORMATION 

sGET THE LINE NUMBER IN THE LOWER BYTE 
sISOLATE THE LINE NUMBER 

sALIGN IT ON A WORD BOUNDARY 

sIS THE CHARACTER WHAT IT SHOULD BE? 

sIF SO,GO CONTINUE PROCESSING 

sGET WHAT WAS EXPECTED FOR ERROR REPORTING 
sELIMINATE PROPAGATED SIGN 

sISOLATE THE ACTUAL CHARACTER 

;GET THE LINE NUMBER OF THE RECEIVER ERROR 
sALIGN IT CORRECTLY FOR REPORTING 

:*DATA ERROR 

sSET UP THE NEXT EXPECTED CHARACTER 
sINCREMENT THE COUNT OF RECEIVED CHARACTERS 
sHAVE ALL CHARACTERS BEEN RECEIVED? 

sIF NOT, GO RECEIVE SOME MORE 

;HAVE WE RECEIVED ALL CHARACTERS? 

sIF SO,GO DETERMINE THE TIMING 

:GO CONTINUE TIMING AND ALLOW INTERRUPTS 
sGET THE RELATIVE TIME (SIGNIFICANT BITS) 


sGET POINTER 

s SAVE THIS TEST‘'S TIME 
sFIRST TEST? 

sIF NOT, GO CHECK THE TIME 
sPOINT TO THE PREVIOUS TIME TAKEN 
sIS THIS TIME WHAT IT SHOULD BE? 

sIF SO, GO TO THE NEXT TEST 

sPLACE WHAT WAS EXPECTED IN R5 

sGET THE LINE NUMBER OF THE RECEIVER 
sMAKE SURE IT'S THE LINE NUMBER 
TIMING ERROR 


sRETURN TO THE PROGRAM 
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9958 
9959 30211 ECHO/CABLE TEST 
9960 
9961 s*STARTING PROCEDURE 
9962 3#LOAD PROGRAM 
9963 s#LOAD ADDRESS 000210 
9964 s#PRESS START 
9965 s#PROGRAM WILL TYPE D0Z11 ECHO/CABLE TEST 
9966 :*#PROGRAM WILL TYPE WHICH TEST- ECHO OR CABLE 
9967 s*TYPE IN E OR C_ RESPECTIVELY 
9968 s*#PROGRAM WILL TYPE “VECTOR ADDRESS-” 
9969 s#TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 
9970 s#FOR THE 0Z11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 
9971 s#PROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-” 
997 3*#TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 
997 s*FOR THE 0Z11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 
997 s*#PROGRAM WILL TYPE “LINE NUMBER-” 
9975 s#TYPE IN THE LINE NUMBER TO BE TESTED CIN OCTAL) 
997 3*,FOLLOWED BY <CARRIAGE RETURN> 
997 :*PROGRAM WILL TYPE “BAUD RATE-” 
9978 s*#TYPE IN THE BAUD RATE OF THE DZ11 TERMINAL 
9979 3#,FOLLOWED BY <CARRIAGE RETURN> 
9980 3*#THE FOLLOWING BAUD RATES ARE ACCEPTED IN DECIMAL 
9981 :* 50 
9982 34 7S 
9983 :* 110 
9964 i* 135 CROUNDED OFF 134.5) 
9985 Tg 150 
9986 i* 300 
9987 3 600 
9988 :* 1200 
9989 34 1800 
9990 3* 2000 
9991 i* 2400 
9992 3* 3600 
9993 34 4800 
9994 34 7200 
9995 3 9600 
te s#ALL OTHERS ARE REJECTED 
999 
oe s*#PROGRAM WILL TYPE “ECHO” OR “CABLE TEST” TO INDICATE THAT TESTING HAS STARTE 
1 
10003 
10004 sPROGRAM INITIALIZATION 
10005 sLOCK OUT INTERRUPTS 
10006 SET UP PROCESSOR STACK 
10007 ;SET UP POWER FAIL VECTOR 
10008 sCLEAR PROGRAM FLAGS AND COUNTS 
10009 
10010 025244 012706 001120 XSTART: MOV #STACK ,SP SET UP PROCESSOR STACK 
10011 025250 106427 000340 MTPS #PR7 sLOCK OUT INTERRUPTS 
10012 025254 012737 025244 001126 MOV @XSTART, $LPADR ;SET UP IN CASE OF POWER FAIL 
10013 025262 005037 027440 CLR STFLG sCLEAR TEST START FLAG 
10014 025266 005037 001242 CLR $PASS sCLEAR PASS COUNT 
10015 025272 005037 001132 CLR SERTTL sCLEAR ERROR COUNT 
10016 025276 105037 001123 CLRB SERFLG sCLEAR ERROR FLAG 











eee 
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10017 025302 005037 027444 CLR LAST sCLEAR LAST ERROR PC 
10018 025306 032777 000001 153644 VEC1: BIT @SWOO, OSWR sIF SWOO=1, GET NEW VECTOR 
10019 025314 001465 BEQ OTHER sAND CSR 
10020 025316 012701 000300 VEC2: MOV #300,R1 
10021 025322 012702 000302 MOV #302 ,R2 
10022 025326 010221 1$: MOV R2,(R1)+ sRESTORE TRAPCATCHER 
10023 025330 005022 CLR (R2)-> sIN FLOATING VECTOR AREA 
10024 025332 022122 CMP (R1)+,CR2)+ sUPDATE THE POINTERS 
10025 025334 020127 001000 CMP R1,#1000 
10026 025340 001372 BNE 1s 
10027 025342 104403 INSTR sINPUT ADDRESS OF DEVICE VECTOR 
10028 025344 027472 MVECTOR sMESSAGE “VECTOR ADDRESS-” 
10029 025346 104405 PARAM sCONVERT STRING TO OCTAL 
10030 025350 000300 300 sLOW LIMIT 
10031 025352 000770 770 sHIGH LIMIT 
10032 025354 002072 DZRIV sLOCATIONS TO BE FILLED 
10033 025356 003 BYTE § ;LSB MASK 
10034 025357 004 -BYTE 4 sNUMBER OF LOCATIONS 
10035 025360 104403 INSTR sINPUT ADDRESS OF DEVICE CSR 
10036 025362 027514 MREGAD sMESSAGE “CONTROL REGISTER ADDRESS-” 
10037 025364 104405 PARAM sCONVERT STRING TO OCTAL 
10038 025366 160000 160000 ;LOW LIMIT 
10039 025370 167790 163700 sHIGH LIMIT 
10040 025372 O00. ° OZCSR sLOCATIONS TO BE FILLED 
10041 025374 Ou7 -BYTE 7 3LSB MASK 
10042 025375 001 -BYTE 1 sNUMBER OF LOCATIONS 
10043 025376 013737 002042 002046 MOV DZCSR, OZRBUF sBEGIN BUILDING DEVICE ADDRESSES 
10044 025404 062737 000002 002046 ADD #2 ,OZRBUF sFORM THE READ BUFFER ADDRESS 
10045 025412 013737 002046 002052 MOV DZRBUF ,DZLPR sREMEMBER THAT THIS IS ALSO LINE PARAMETER REG. 
10046 025420 013737 002046 002056 MOV DZRBUF ,DZTCR sBEGIN BUILDING TRANSMITTER CONTROL REGISTER 
10047 025426 062737 000002 002056 ADD #2,D0ZTCR sFORM THE TRANSMITTER CONTROL REGISTER POINTER 
10048 025434 013737 002056 002060 MOV DZTCR,HDZTCR 
10049 025442 005237 002060 INC HDZTCR 
10050 025446 013737 002056 002066 MOV DZTCR,OZTOR sBEGIN FORMING TRANSMITTER DATA REGISTER 
10051 025454 062737 000002 002066 ADD #2,D0ZTOR sFORM THE TRANSMITTER DATA REGISTER 
10052 025462 013737 002066 002062 MOV DZTOR,OZMSR 
10053 025470 032777 000002 153462 OTHER: BIT #SWO1,SWR sRESELECT OF TEST? 
10054 025476 001427 BEQ XBEGIN sIF NOT, SKIP ASKING WHICH ONE 
10055 025500 104403 INSTR sINPUT WHICH TEST YOU ARE RUNNING 
10056 025502 027700 MWHICH sECHO OR CABLE 
10057 025504 104416 PAWCH s;SET FLAG 
10058 025506 027436 WCHFLG sTHIS FLAG 
10059 025510 104403 BAUD: INSTR sINPUT BAUD RATE 
10060 025512 027622 MSPEED sMESSAGE “BAUD RATE-” 
10061 025514 104415 PARMD sCONVERT DECIMAL STRING TO OCTAL 
10062 025516 000062 50. sLOW LIMIT 
10063 025520 022600 9600. sHIGH LIMIT 
10064 025522 027454 LINESP sLOCATION TO BE FILLED 
10065 025524 000 -BYTE 0 ;LSB MASK 
10066 025525 001 . «aie «6 sNUMBER OF LOCATIONS 
10067 025526 104413 LINEX: DEVICE.CLR sCLEAR DEVICE 
10068 025530 005037 027440 CLR STFLG sCLEAR PROGRAM START FLAG 
10069 025534 104403 INSTR sINPUT LINE NUMBER 
10070 025536 027612 MLINE sMESSAGE “LINE NUMBER-” 
10071 025540 104405 PARAM sCONVERT STRING TO OCTAL 
10072 025542 000000 0 sLOW LIMIT 
& ne cr er el 
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10073 
10074 
10075 


-Pil 


025544 
025546 
025550 
025551 
025552 


025556 
025562 
025566 
025572 
025576 
025600 
025606 
025612 
025614 
025620 
025624 
025626 
025634 
025640 
025642 
025646 
025652 


025656 
025660 
025666 
025674 
025702 
025710 
025716 
025724 
025726 
025732 
025736 
025740 
025742 
025744 
025746 
025750 
025752 
025756 
025760 
025764 
025772 
025774 
025776 
026002 
026010 
026012 
026020 


0265026 
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053737 
052737 


027242 


000340 
001120 
027442 
027436 


026314 
027440 


027440 
027773 


025656 
027440 


027440 
027746 
153250 


000001 
027462 
027460 
027456 
001366 
000040 


030010 
154104 


154110 
007642 
000377 
000340 
026752 


027460 
027456 


010000 


001126 


001126 


001122 
154162 
001366 
001366 
154134 
154116 


153166 


001360 


001366 
001366 


001366 


-BYTE 


XBEGIN: 


2s: 


1$: 


TEST1: 


3$: 


2$: 


7 
SAVLIN 
te) 


-BYTE 
JSR 


1 
RS, SET 


PR7 
STACK , SP 
LOCKUP 
WCHF LG 


2s 
#TEST2,$LPADR 
STFLG 

1$ 

STFLG 

»MCABLE 

1$ 
#TEST1,$LPADR 
STFLG 

1$ 

STFLG 

»MTERM 
8$LPADR 


sHIGH LIMIT 

sLOCATION TO BE FILLED 
sLSB MASK 

sNUMBER OF LOCATIONS 


;LOCK OUT INTERRUPTS 
;SET UP PROCESSOR STACK 
sCLEAR TIMEOUT 

sECHO OR CABLE TEST ? 
;ECHO 

sCABLE TEST 

sARE YOU LOOPING ? 

sYES 

3NO 

sTYPE CABLE TEST 


;SET UP ECHO TEST 
sARE YOU LOOPING ? 
:YES 

3NO 

sTYPE ECHO TEST 
:START TESTING 


sTHIS TEST WILL ACCEPT 1 CHARACTER AT A TIME 
sCIN INTERRUPT MODE) AND TRANSMIT THAT SAME CHARACTER, 
sONE LINE AT A TIME, ANY LINE O THRU 7 COCTAL) 


DEVICE .CLR 

MOV #1,$TSTNM 
MOV NUMTCR ,@DZTCR 
MOV NUMLIN,PAR 
BIS SPEED, PAR 
MOV PAR, @DZLPR 
MOV #MSENAB , 8DZCSR 
CLR R4 

MOV #MQUICK,RS 
TST a@0ZCSR 

BMI 2$ 

DELAY 

DEC R4 

BNE 3$ 

ERROR 3 

CLR R4 

MOVB CRS)+,@DZTOR 
BNE 3$ 

JSR PC ,SERV.G 
CMPB #377 ,A@SWR 
BEQ TEST1 

DEVICE .CLR 

MTPS @PR7 

MOV #XEOP ,NEXT 
DEVICE .CLR 

MOV NUMLIN,PAR 
BIS SPEED,PAR 
BIS #RCVON,PAR 


sCLEAR DZ11 


sSET TCR BIT 

;SET PARAMETERS 
;SET BAUD RATE 
sLOAD PARAM. 

sSET SCANN ENABLE 


sSET MESSAGE BUFFER 
s TROY? 


BR IF YES 
;WAIT 


; 

sNO TROY SET! WHY? 
sRESET COUNTER TO 0 
sLOAD CHAR 


i<1G>2 
sRE-DO QUICK BROWN? 
sBR IF REPEAT PATTERN 


sLOCK OUT INTERRUPTS 


sSELECT LINE # & SET INTERRUPT ENABLE 
sSET LINE SPEED AND 

sCHARACTER LENGTH (TRANS. & REC. ) 
sMAKE SURE RECEIVER IS TURNED ON 


SEQ 108 
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10129 026034 013777 001366 154010 MOV PAR, @DZLPR sLOAD THE LINE PARAMETER REGISTER 
10130 026042 012777 026116 154022 MOV @INTSVC,@DZRIV ;SET UP INTERRUPT SERVICE 
10131 026050 013777 027464 154016 MOV PRIO,@DZRIS sAND LEVEL 
10132 026056 106437 030336 MTPS OeLESS1 sALLOW INTERRUPTS 
10133 026062 012777 000140 153752 MOV @RIE!MSENAB,@DZCSR ;SET RECEIVER INTERRUPT ENABLE 
10134 026070 104402 027640 TYPE »MCHAR :TYPE “ANY CHARACTER” 
10135 026074 105777 153064 1$: TSTB asTKS sIF SOMBODY HITS A KEY- GET NEW LINE @ 
10136 026100 100375 BPL 1$ ;LOOP HERE 
10137 026102 005777 153060 TST a$TKB ;CLEAR CHAR 
10138 026106 004737 007642 JSR PC,SERV.G sMAKE SURE IT WASN‘T <tG> 
10139 026112 000137 025526 JMP LINEX H 
10140 
10141 
10142 ;THE FOLLOWING IS THE RECEIVER INTERRUPT SVC ROUTINE 
10143 026116 105777 153720 INTSVC: TSTB aDZCSR sTEST REC. FLAG 
10144 026122 100401 BMI +4 
10145 026124 104004 ERROR 4 sERROR - INTERRUPT NOT CAUSED BY FLAG 
10146 026126 017737 153714 027466 MOV @DZRBUF ,RECDAT 
10147 026134 100401 BMI +4 
10148 026136 104023 ERROR 23 sNON- VALID CHARACTER 
10149 026140 032737 020000 027466 BIT #BIT13,RECDAT sCHECK FOR FRAMING ERROR 
10150 026146 001401 -BEQ +4 ;BR IF NO ERROR 
10151 026150 104025 ERROR 25 sEITHER SOMBODY HIT THE 
10152 ;"BREAK KEY” OR YOU HAVE AN ERROR! 
10153 026152 113737 027466 027470 MOVB RECDAT , TBUF sMOVE CHARACTER TO OUTPUT AREA 
10154 026160 113737 027466 011262 MOVB RECDAT , INBUF sMOVE CHARACTER TO CHECK FOR tC 
10155 026166 042737 177600 011262 BIC #tC<177>,INBUF ;STRIP JUNK PLUS PARITY 
10156 026174 042737 174377 027466 BIC #174377,RECDAT ;SAVE ONLY LINE NUMBER 
10157 026202 000337 027466 SWAB RECDAT 
10158 026206 023737 001372 027466 CMP SAVLIN,RECDAT sDOES THE LINE # COMPARE? 
10159 026214 001401 BEQ .*4 
10160 026216 104015 ERROR 15 ;+*WRONG LINE NUMBER 
10161 026220 012777 000040 153614 MOV #MSENAB,@DZCSR ;START THE TRANSMITTERS SCANNER 
10162 026226 123727 011262 000003 CMPB INBUF , #3 3IS IT A tC ? 
10163 026234 001004 BNE 1s 3NO 
10164 026236 104413 DEVICE.CLR 
10165 026240 012716 026752 MOV #XEOP, (SP) sCRUNCH STACK 
10166 026244 000002 RTI 
10167 026246 005003 1$: CLR R3 sINITIALIZE DELAY 
10168 026250 013777 027462 153600 MOV NUMTCR ,@DZTCR sENABLE THE LINE 
10169 026256 005777 153560 10$: TST aDZCSR sTRANSMITTER READY? 
10170 026262 100403 BMI 2s ;IF YES BRANCH 
10171 026264 005203 INC R3 s INCREMENT DELAY 
10172 026266 001373 BNE 10$ ;DELAY DONE? 
10173 025270 104003 ERROR 3 s TRANSMIT READY NOT SET! 
10174 026272 113777 027470 153566 2$: MOVB TBUF ,@DZTOR sTRANSMIT THE -CHARACTER 
10175 026300 012777 000140 153534 MOV #RIE !MSENAB, @DZCSR sRESTART THE RECEIVER 
10176 026306 005077 153544 CLR aDZTCR ;CLEAR TCR BIT 
10177 026312 000002 RTI 
10178 
10179 
10180 s;THIS TEST TRANSMITS A BINARY COUNT PATTERN 
10181 VIA INTERRUPT MODE TO THE RECEIVER 
10182 3...THE LINE UNDER TEST MUST BE TERMINATED WITH THE TEST CONNECTOR 
10183 026314 106427 000340 TEST2: MTPS #PR7 sDISABLE INTERRUPTS 
10184 026320 012737 000002 001122 MOV #2,$TSTNM 
- RE 
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10185 026326 012737 026752 001360 MOV @XEOP , NEXT 

10186 026334 104413 DEVICE .CLR 

10187 s#TEST TO VERIFY THAT SETTING OTR FOR A GIVEN LINE 

10188 s#WILL BRING UP “CO” AND “RING” FOR THE SAME LINE 

10189 s*THE DIST PNL MUST HAVE JUMPER FROM DTR TO RQST TO SEND 
10190 ;#IN ORDER FOR THIS TEST TO WORK! 

10191 026336 012737 026344 001362 MOV #1$,LOCK ;LOOP 

10192 026344 113777 027462 153506 1%: MOVB NUMTCR,@HDZTCR ;SET DTR 

10193 026352 005005 CLR RS ; 

10194 026354 153705 027462 BISB NUMTCR ,RS sBUILD EXPECTED 

10195 026360 000305 SWAB RS sPUT IN HIGH BYTE 

10196 026362 153705 027462 BISB NUMTCR RS ; 

10197 026366 104414 DELAY sWAIT FOR CABLE DELAY 

10198 026370 017704 153466 MOV @D0ZMSP ,R4 sREADY MODEM BITS 

10199 026374 020504 CMP RS,R4 sARE THEY OK? 

10200 026376 001401 BEQ 2$ 3BR IF YES 

10201 026400 104022 ERROR 22 sIS THE TEST CONNECTOR ON? 

10202 sHAS RIGHT LINE BEEN SELECTED? 
10203 sIF SO- YOU HAVE A PROBLEM! 

10204 sMODEM BITS NOT RIGHT 

10205 026402 104401 2s; SCOP 1 ;LO0P 

10206 026404 104413 3$: DEVICE .CLR sINIT OZ1i1 

10207 026406 013737 027456 001366 MOV SPEED,PAR ;SET LINE SPEED 

10208 026414 053737 027460 001366 BIS NUMLIN, PAR sSELECT LINE # € REC. INTERRUPT ENABLE 
10209 026422 052737 010000 001366 BIS #RCVON PAR sENABLE THE RECEIVER FOR THIS LINE 
10210 026430 052777 040140 153404 BIS #TIE!RIE!MSENAB,@DZCSR ;SET TRANSMITTER INTERRUPT ENABLE 
10211 026436 012777 026552 153426 MOV #INTREC,@DZRIV ;SET UP INTR SERVICE 

10212 026444 013777 027464 153422 MOV PRIO,@0ZRTS ;SET UP LEVEL 

10213 026452 012777 026732 153416 MOV #INTRAN,@OZTIV ;SET UP INTR SERVICE 

10214 026460 013777 027464 153412 MOV PRIO,@0ZTIS ;SET UP LEVEL 

10215 026466 005001 CLR Ri sRX DATA POINTER- SET TO 0 

10216 026470 005002 CLR R2 sTX DATA POINTER- SET TO 0 

10217 026472 013777 001366 153352 MOV PAR, @DZLPR sSET THE PARAMETERS AND TURN ON RECEIVER 
10218 026500 106437 030336 MTPS a#LESS1 sALLOW INTERRUPTS 

pete 026504 013777 027462 153344 MOV NUMTCR,@DZTCR ;SET UP TCR BIT 

2 

10221 ;YOU RETURN HERE AFTER = RECEIVER INTERRUPT 

10222 026512 105777 152446 SPIN: TSTB . O$TKS F SOMEBODY HITS A KEY- GET A NEW LINE # 
10223 026516 100006 BPL 1$ BR IF NO KEY HIT 

10224 026520 005777 152442 TST asTKB s;CLEAR CHAR 

10225 026524 004737 007642 JSR PC,SERV.G sMAKE SURE IT WASN'T <tG> 

10226 026530 000137 025526 JMP LINEX s;SWO2=1 

10227 026534 005237 027442 1$: INC LOCKUP sINC TIMEOUT FLAG 

10228 026540 001364 BNE SPIN ;IF NOT 0 RETURN SPINNING 

10229 026542 104011 ERROR 11 ;*RECEIVER FAILED TO INTERRUPT CHECK CABLE/TERMINATOR 
10230 026544 104413 QUITS: DEVICE.CLR 

10231 026546 000137 026752 JMP XEOP s;CALL FOR END OF PASS 

10232 026552 005037 027442 INTREC: CLR LOCKUP s;CLEAR TIMEOUT FLAG 

10233 026556 105777 153260 TSTB a@0ZCSR sTEST REC DONE 

10234 026562 100401 BMI +4 sYES 

10235 026564 104004 ERROR 4 s#FALSE INTERRUPT 

10236 026566 017737 153254 027466 MOV @DZRBUF,RECDAT ;SAVE WORD 

10237 026574 100401 BMI +4 

10238 026576 104023 ERROR 23 ;*NON VALID CHARACTER 

10239 026600 032737 040000 027466 BIT #BIT14,RECDAT  ;DATA OVERRUN ? 

10240 026606 001401 BEQ +4 sNO 













e\rem 444 


CZ0ZA-10 
CZDZAI .P11 


10241 
10242 
10243 
10244 
10245 
10246 
10247 
10248 
10249 
10250 


-—~ 


026724 
026730 


026732 
026736 
026740 
026742 
026746 
026750 


MACY11 oo ee 02-JUL-85 16:19 PAGE 85-5 
CZDZA 0Z11 DEVICE DIAGNOSTICS. 


02-JUL-85 16 


104024 
032737 
001401 
104025 
032737 
001401 
104026 
110105 
042705 
113704 
042704 
020504 
001401 
104005 
042737 
000337 
023737 
001401 
104015 
120127 
901003 
012716 
000403 
105201 
012716 
000002 


005777 
100401 
104003 
110277 
105202 
000002 








020000 027466 


010000 027466 


177400 
027466 
177400 


174377 027466 
027466 
001372 027466 


000377 
026544 


026512 


153104 


153120 


1$: 
2s: 


INTRAN: 


24 
#BIT13,RECDAT 
+4 

25 

— »RECDAT 
26 

R1,R5 
$tC<377>,R5 
RECDAT ,R4 
#tC<377>,R4 
R5,R4 30K? 
+4 

5 
#174377,RECDAT 
RECDAT 
_— »RECDAT 


15 
R1,%377 


1$ 
#QUITS ,( SP) 
2$ 


R1 
#SPIN, (SP) 


7*YES 


FRAMING ERROR ? 


3NO 


3*YES 

sPARITY ERROR ? 
;NO 

7*YES 

;SET EXPECTED 


sCLEAR HIGH BYTE 


sGET FOUND 


sCLEAR HIGH BYTE 


sDATA ERROR 


sSAVE ONLY LINE NUMBER 
“*y THE LINE # COMPARE ? 


YE 
7*WRONG LINE #¢ 


sLAST CHARACTER ? 


3NO 
sCRUNCH STACK 


sUPDATE EXPECTED DATA 


sCRUNCH STACK 


— sTEST TRANSMIT FLAG 
+ 


3 
R2,a9D0ZTOR 
R2 
sRETURN 


s#FALSE INTERRUPT 
s TRANSMIT A CHARACTER 
sUPDATE TX DATA 


SEQ 111 


SEQ 112 


CZ0ZA-10 MACY11 ee 02-JUL-85 16:19 PAGE 86 
CZOZAI.P1il 02-JUL-85 16:1 CZDZA 0Z11 DEVICE DIAGNOSTICS. 

10275 

10276 sEND OF PASS 

10277 sRESTART TEST 

10278 

10279 026752 104402 XEOP: TYPE sTYPE NAME OF TEST 
10280 026754 027550 MPASS 

10281 026756 005037 027444 CLR LAST sCLEAR LAST ERROR PC 
10282 026762 105037 001123 CLRB S$ERFLG s;CLEAR ERROR FLAG 
aes 026766 000137 025556 RSTRT: JMP XBEGIN 

10285 sCONVERT DECIMAL ASCII STRING TO OCTAL 
10286 026772 011605 -PARMD: MOV (SP),RS 

10287 026774 012537 027156 MOV CR5)+,6$ 

10288 027000 012537 027160 MOV (R5)+,7$ 

10289 027004 012537 027162 MOV (R5)+,8$ 

10290 027010 112537 027164 MOVB (R5)+,9$ 

10291 027014 112537 027165 MOVB CR5S)+,10$ 

10292 027020 010516 MOV RS,(SP) 

10293 027022 005005 2s: CLR RS 

10294 027024 012704 011262 MOV #INBUF ,R4 

10295 027030 122714 000015 CMPB _ (R4) 

10296 027034 001424 BEQ 

10297 027036 121427 000060 1$: CMPB cra), #'0 

10298 027042 002421 BLT ! 
10299 027044 121427 000071 CMPB cra), o'9 

10200 027050 003016 BGT 3$ 

10301 027052 142714 000060 BICB #'0,(R4) 

10302 027056 005002 CLR R2 

10303 027060 152402 BISB (R4)+,R2 

10304 027062 060205 ADD R2,R5 

10305 027064 122714 000015 CMPB #15,(R4) 

10306 027070 001410 BEQ 4$ 

10307 027072 006305 ASL RS :X2 

10308 027074 010502 MOV RS,R2 ;SAVE X2 

10309 027076 006305 ASL RS 3X4 

10310 027100 006305 ASL RS +X8 

10311 027102 060205 ADD R2,R5  ;TIMES 10 

10312 027104 000754 BR 1$ 

10313 027106 104404 3$: INSTER 

10314 027110 000744 BR es 

10315 

pte sTEST TO SEE IF NUMBER IS WITHIN LIMITS 
1031 

10318 027112 020537 027160 43: CMP R5,7$ 

10319 027116 101373 BHI 3$ 

10320 027120 020537 027156 CMP RS ,6$ 

10321 027124 103770 BLO 3s. 

10322 027126 133705 027164 BITB 9$,R5 

10323 027132 001365 BNE 3$ 

10324 

eee ;STORE NUMBER AT SPECIFIED ADDRESS 
10327 027134 013704 027162 MOV 8$ ,R4 

10328 027140 010524 5$: MOV RS,CR4)+ 

10329 027142 062705 000002 ADD #2 ,R5 

10330 027146 105337 027165 DECB 10$ 


ell ec SS ial leo 





is = | 


CZ0ZA-I0 
CZOZAI.Pil 


10331 
10332 
10333 
10334 
10335 
10336 
10337 
10338 
10339 
10340 
10341 
10342 
10343 
10344 
10345 
10346 
10347 
10348 
10349 
10350 
10351 
10352 
10353 
10354 
10355 
10356 
10357 
10358 
10359 
10360 
10361 
10362 
10363 
10364 
10365 
10366 
10367 
10368 
10369 
10370 
10371 
10372 
10373 
10374 
10375 
10376 
10377 
10378 
10379 
10380 
10381 
10382 
10383 
10384 
10385 
10386 


027152 
027154 
027156 
027160 
027162 
027164 
027165 


027166 
027172 
027200 
027206 
027210 
027212 
027214 
027222 
027224 
027230 
027234 
027236 
027240 


027242 
027250 
027254 
027260 
027264 
027266 
027270 
027272 
027274 
027300 
027304 
027310 
027312 
027314 
027316 
027322 
027326 
027330 
027334 








SEQ 113 


MACY11 30AC1052) 02-JUL-85 16:19 PAGE 86-1 
02-JUL-85 16:17 


017605 


013737 
013700 
005037 
012702 
005300 
100402 
006302 
000774 
012701 
010237 
022137 
001407 
005721 
001373 
104402 
012705 
000402 
011137 
000205 





000000 
000040 
000105 


000103 


177777 
000002 


001372 
001372 
027462 
000001 


027336 
027462 
027454 


027564 
025510 


027456 


011262 
011262 


011262 


027460 


CZDZA 0Z11 DEVICE DIAGNOSTICS. 


BNE 5$ 
RTI 
6$: 0 
7$: 0 
8$: 0 
9$: -BYTE 0 
10$: -BYTE 0 


sCOMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT 
sBUFFER TO THE CHARACTERS “E” AND “C”. 

sIF THE CHARACTER IS “E” CLEAR THE FLAG 

sIF THE CHARACTER IS "C” SET THE FLAG 


-PAWCH: MOV aC SP),RS 
BICB 


#40, INBUF sSET FOR LOWER CASE INPUT 
CMPB #'E, INBUF san os “EP 
BNE 1$ 
CLRB (RS) 3000 
BR 2$ 
1$: CMPB #'C, INBUF sIS IT °C’ ? 
BNE 3$ 
MOVB #-1,(R5> 33177 
2s: ADD #2 ,(SP) 
RTI 
3$: INSTER sRETRY 
BR -PAWCH 


;THIS ROUTINE CONVERTS LINE SPEED (LINESP) AND 
sLINE NUMBER (SAVLIN) FOR DZLPR, DZTCR AND DZCSR 
sREGISTER USAGE. 


SET: MOV SAVLIN,NUMLIN ;SAVE SAVLIN 


XTCRO: MOV SAVLIN,RO ;COPY THE LINE NUMBER FOR LOOP CONTROL 
CLR NUMTCR sSET A DEFAULT OF LINE O OR NO LINES 
MOV #1,R2 sSET A BIT POINTER TO THE FIRST LINE 
XTCR1: DEC RO sREDUCE THE INDICATOR.IS IT MINUS YET? 
BMI SET1 sIF SO, R2 POINTS TO THE RIGHT LINE 
ASL R2 sIF NOT, MOVE THE POINTER TO THE NEXT LINE 
BR XTCR1 GO SEE IF THIS LINE IS THE ONE 
SET1: MOV #TABLE2,R1 
MOV R2,NUMTCR sCOPY THE CORRECT BIT POINTER 
1$; CMP (R1)+,LINESP 
BEQ es 
TST (R1)+ :IS IT THE END OF TABLE? 
BNE 1$ 3NO 
TYPE »MINVAL sINVALID BAUD RATE,BEGIN AGAIN 
“a un sJUMP TO BAUD THRU RS 
2s: MOV (R1),SPEED SET UP BAUD RATE 
3$: RTS RS 
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CZ0ZA-10 MACY11 30A(1052) 02-JUL-85 16:19 PAGE 86-2 
CZOZAI.Pil 02-JUL-85 16:17 CZOZA 0Z11 DEVICE DIAGNOSTICS. 

10387 sTHE FOLLOWING IS A TABLE OF LEGAL BAUD RATES (8 BITS/CHAR) 
10388 027336 000062 TABLE2: .WORD 50. “i BAUD 

10389 027340 010070 -WORD 10070 

10390 027342 000113 -WORD 75. 75 BAUD 

10391 027344 010470 -WORD 10470 ; 

10392 027346 000156 -WORD 110. 3110 BAUD 

10393 027350 011070 -WORD 11070 ;TWO STOP BITS 
10394 027352 000207 -WORD 135. 3134.5 BAUD 

10395 027354 011470 -WORD 11470 sTWO STOP BITS 
10396 027356 000226 -WORD 150. 3150 BAUD 

10397 027360 012070 -WORD 12070 :TWO STOP BITS 
10398 027362 000454 -WORD 300. 3300 BAUD 

10399 027364 012430 -WORD 12430 s;ONE STOP BIT 

10400 027366 001130 -WORD 600. 3600 BAUD 

10401 027370 013030 -WORD 13030 sONE STOP BIT 

10402 027372 002260 -WORD 1200. 31200 BAUD 

10403 027374 013430 -WORD 13430 s;ONE STOP BIT 

10404 027376 003410 -WORD 1800. 31800 BAUD 

10405 027400 014030 -WORD 14030 sONE STOP BIT 

10406 027402 003720 -WORD 2000. 32000 BAUD 

10407 027404 014430 -WORD 14430 s;ONE STOP BIT 

10408 027406 004540 -WORD 2400. 32400 BAUD 

10409 027410 015030 -WORD 15030 s;ONE STOP BIT 

10410 027412 007020 -WORD 3600. +3600 BAUD 

10411 027414 015430 -WORD 15430 sONE STOP BIT 

10412 027416 011300 -WORD 4800. 34800 BAUD 

10413 027420 016030 -WORD 16030 ;ONE STOP BIT 

10414 027422 016040 -WORD 7200. :7200 BAUD 

10415 027424 016430 -WORD 16430 ;ONE STOP BIT 

10416 027426 022600 -WORD 9600. 39600 BAUD 

10417 027430 017070 -WORD 17070 ; 

pty: 027432 177777 000000 -WORD  -1,0 ;TABLE TERMINATOR 
1041 

10420 

10421 027436 000000 WCHFLG :0 sECHO OR CABLE FLAG 
10422 027440 000000 STFLG: 0 sPROGRAM START FLAG 
10423 027442 000000 LOCKUP: 0 ; TIMEOUT FLAG 

10424 027444 000000 LAST: 0 sLAST ERROR PC 
10425 027446 000000 TOATA: 0 

10426 027450 000000 RDATA: 0 

10427 027452 000000 BYTCNT: 0 

10428 027454 000156 LINESP: 110. sDEFAULT BAUD RATE 
10429 027456 006307 SPEED: 6307 sDEFAULT 110 BAUD, 8 BITS/CHAR, 
10430 sFOX, 2 STOP BITS 
ate) 027460 000100 NUMLIN: 100 sDEFAULT VALUE, REC. INTERRUPT ENABLED 
1 

10433 027462 000001 NUMTCR: 1 sDEFAULT VALUE,TCR BIT 0 
10434 027464 000240 PRIO: 240 ;DEFAULT DEVICE PRIORITY 5 
10435 027466 000000 RECDAT: 0 

10436 027470 000000 TBUF: 0 


10440 027472 053200 041505 047524 MVECTO: .ASCIZ <200>/VECTOR ADDRESS- / 

10441 027514 041600 047117 051124 MREGAD: .ASCIZ <200>/CONTROL REGISTER ADDRESS- / 
10442 027550 050200 051501 020123 MPASS: .ASCIZ <200>/PASS DONE./ 

10443 027564 044600 053116 046101 MINVAL: .ASCIZ <200>/INVALID BAUD RATE - / 

10444 027612 046200 047111 035105 MLINE: .ASCIZ <200>/LINE: / 

10445 027622 041200 052501 020104 MSPEED: .ASCIZ <200>/BAUD RATE - / 








CZDZA-1I0 


CZ0ZAI 


-Pil 


030114 


030126 
030132 
030136 
030142 
030146 
030152 
030160 
030166 
030174 
020200 
030204 
030210 
030214 
030220 
030224 


030230 
030234 
030240 
030242 
030246 
030250 
030254 
030260 
030262 
030266 
030272 
030274 
030300 
030302 
030306 
030310 
030314 
030320 
030322 
030326 
030332 
030334 
030336 
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02-JUL-85 16:17 


050131 
044510 
051105 
040503 
177777 
042510 
177777 


030334 
030334 
030334 
030334 
030334 
030334 
000001 
000037 
002072 
000002 
002074 
000002 
002076 
000002 
002100 


001310 
002042 


002044 


002046 
002052 


002050 
002054 


002056 
002060 


002062 
002066 


002064 
002070 





020105 
044103 
044515 
046102 
177412 
050440 
177412 


030336 
030336 
030336 


MCHAR: 


MWHICH: 


MTERM: 


MCABLE: 
MQUICK: 


-EVEN 


33 SEEREAEARERAAEERAEAAEEAAAAEAREASASABEAREEASARERAREDERERERERA 
sUTILITIES 
3 SREREEEAEABEAEAEEEEAEAAAAEAEAAEAEEEEASEREAAAEREREAAEEADEEES 


sTHIS UTILITY ae PRIORITY LEVEL,SETS UP CSR‘S,SETS UP VECTORS. 


DZLEV: 


sTHIS SEGMENT SETS UP POINTERS FOR THE GIVEN DZ11. $BASE IS THE BASE ADDRESS 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCII 
-ASCII 
-ASCII 


ASL 


;OF THE DEVICE 


DZPRT: 
LESS1: 













<200>/TYPE A CHAR. ON DZ11 TERMINAL / 

<200>/WHICH TEST ? ECHO OR CABLE (E OR C) / 

<200>/TERMINAL ECHO TEST / 

<200>/CABLE TEST / 

<377>¢<15>¢<377><377><12><377><377> 

/THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789/ 
<€377><15>¢<377><377><12><377><377><377><0> 


;BUILD PRIORITY IN THIS LOCATION 


DZPRT sUSING ARITHMETIC SHIFTS, ROTATE 

DZPRT ; THE PRIORITY LEVEL PAST 

DZPRT ; THE BIT POSITIONS CORRE- 

DZPRT SPONDING TO THE CONDITION CODES 
DZPRT,LESS1 ;MOVE THIS TO LESS1 

#1,LESS1 sCREATE THE NEXT LOWEST PRIORITY 

#37,LESS1 sINSURE THAT THE TNZVC BITS ARE CLEAR 
DZRIV,RO sPLACE THE BASE VECTOR ADDRESS IN RO 

#2,RO0 sCALCULATE THE RECEIVER INTERRUPT STATUS ADDR. 
RO,OZRIS sSTORE IT HERE 

#2 ,RO sCALCULATE THE TRANSMITTER INTERRUPT VECTOR 
RO,OZTIV sSTORE IT HERE 

#2 ,R0 sCALCULATE THE TRANSMITTER VECTOR STATUS ADDRESS 
RO,OZTIS sSTORE IT HERE 


$BASE,RO . s#COPY THE ADDRESS BEING LOADED 
-* arcataes 3XXX0 
as sXXX1 
RO ,OZRBUF sXXX2 
> Lanai 3XXX2 
0 

RO, HOZRBUF 3XXX3 
~  ataaata 3XXX3 
RO,DZTCR 3XXX4 
RO 

cata 3XXX5 
RO,DZMSR sXXX6 
la 3XXX6 
RO,HDZMSR sXXX7 
~ Sicalnes 3XXX7 
Pp 


sLEVEL TO ALLOW INTERRUPTS 
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CZ0ZA-I0 MACY11 30A(1052) 02-JUL-85 16:19 PAGE 86-4 
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10505 sERROR ERROR TABLE 

10506 030340 000000 -ERRTAB: 0 sERROR O 
10507 030342 000000 0 

10508 030344 000000 0 

10509 

10510 030346 030566 EM1 sERROR 
10511 030350 032073 OH1 

10512 030352 032324 OT1 

10513 

10514 030354 030641 EM2 sERROR 2 
10515 030356 032116 DH2 

10516 030360 032336 0T2 

10517 

10518 030362 030667 EM3 sERROR 3 
10519 030364 032151 DH3 

10520 030366 032354 OT3 

10521 

10522 030370 030726 EM4 sERROR 4 
10523 030372 032151 DH3 

10524 030374 032354 DT3 

10525 

10526 030376 030755 EMS sERROR 5 
10527 030400 032163 DH4 

10528 030402 032362 DT4 

10529 

10530 030404 031004 EM6 sERROR 6 
10531 030406 032163 DH4 

10532 030410 032362 OT4 

10533 

10534 030412 031042 EM7 sERROR 7 
10535 030414 932151 DH3 

10536 030416 032354 OT3 

10537 

10538 030420 031103 EM8 sERROR 10 
10539 030422 032151 DH3 

10540 030424 032354 OT3 

10541 

10542 030426 031145 EM9 sERROR 11 
10543 030430 032151 DH3 

10544 030432 032354 OT3 

10545 

10546 030434 031203 EM10 sERROR 12 
10547 030436 032151 DH3 

10548 030440 032354 OT3 

10549 

10550 030442 031242 EM13 sERROR 13 
10551 030444 032151 DH3 

10552 030446 032354 OT3 

10553 

10554 030450 031273 EM14 sERROR 14 
10555 030452 032151 DH3 

10556 030454 032354 OT3 

10557 

10558 030456 031325 EMiS sERROR 15 
10559 030460 000000 0 

10560 030462 000000 0 
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CZDZAI .P11 02-JUL-85 16:17 CZDZA 0Z11 DEVICE DIAGNOSTICS. 
10561 

10562 030464 031367 EM16 

10563 030466 032151 DH3 

10564 030470 032354 OT3 

10565 

10566 030472 031440 EM17 sERROR 17 
10567 030474 032151 DH3 

10568 030476 032354 OT3 

10569 

10570 030500 031476 EM20 

10571 030502 032151 = DH3 

10572 030504 032354 OT3 

10573 

10574 030506 031537 EM21 sERROR 21 
10575 030510 032212 DHS 

10576 030512 032400 OTS 

10577 

10578 030514 031567 EM22 sERROR 22 
10579 030516 032163 DH4 

teeee 030520 032362 OT4 

10582 030522 931631 EM23 sERROR 23 
10583 030524 032151 DH3 

10584 030526 032354 OT3 

10585 

10586 030530 031661 EM24 

10587 030532 032151 OH3 

10588 030534 032354 OT3 

10589 

10590 030536 031707 EM25 

10591 030540 032151 DH3 

10592 030542 032354 OT3 

10593 

10594 030544 031737 EM26 

10595 030546 032151 DH3 

10596 030550 032354 OTS 

10597 

10598 030552 031766 EM27 

10599 030554 032151 DH3 

10600 030556 032354 OT3 

10601 

10602 030560 032036 EM30 

10603 030562 032271 DH6 

10604 030564 032422 OT6 

10605 








CZ20ZA-10 
CZOZAI.Pil 


10612 030566 
10613 030641 
10614 030667 
10615 030726 
10616 030755 
10617 031004 
10618 031042 
10619 031103 
10620 031145 
10621 031203 
10622 031242 
10623 031273 
10624 031325 
10625 031367 
10626 031440 
10627 031476 
10628 031537 
10629 031567 
10630 031631 
10631 031661 
10632 021707 
10633 021737 
10634 031766 
10635 032036 
10636 032073 
10637 032116 
10638 032151 
10639 032163 
19640 032212 
10641 032271 


10647 032224 
10648 032326 
10649 032330 
10650 032332 
10651 032334 


10653 032336 
10654 032340 
10655 032342 
10656 932344 
10657 032346 
10658 032350 
10659 032352 


10661 032354 
10662 032356 
10663 032360 


10665 032362 
10666 032364 
10667 032366 
10668 032370 


MACY11 3OA(1052) 02-JUL-85 16:19 PAGE 


02-JUL-85 16:17 


000001 
003 
001372 


020117 


004 
001 





046123 


044507 
047101 
044505 
040524 
020061 
051516 
054105 
042503 
054105 
020117 
047514 
044524 
042101 
020101 
044505 
040514 
042504 
040524 
040524 
046501 
044522 
020114 
020104 
050101 
041505 
042516 
042520 
044514 
044107 


SEQ 118 


87 
CZOZA 0Z11 DEVICE DIAGNOSTICS. 


OT2: 


OT3: 


OT4: 


cert MESSAGES 


_ TABLES FOR ERROR MESSAGES 


-BYTE 
$REG1 
-BYTE 
$REGO 


3 

-BYTE 
$REGS 
-BYTE 
$REG4 
-BYTE 
$REGO 


1 
-BYTE 
SAVLIN 


3 

-BYTE 
$REGS 
-BYTE 


<200>/NO SLAVE SYNC RESPONSE FROM DZ11 REGISTER/ 
<200>?REGISTER R/W FAILURE? 

<200>/TRANSMIT READY (TRDY) NOT SET/ 
<200>/RECEIVER DONE NOT SET/ 

<200>/DATA COMPARISON ERROR/ 

<200>/DZ11 *#RECEIVER BUFFER* ERROR/ 
<200>/TRANSMITTER FAILED TO INTERRUPT/ 
<200>/UNEXPECTED TRANSMITTER INTERRUPT/ 
<200>/RECEIVER FAILED TO INTERRUPT/ 
<200>/UNEXPECTED RECEIVER INTERRUPT/ 

<200>/SILO ALARM SET TOO SOON/ 

<200>/SILO ALARM FAILED TO SET/ 

<200>/ACTION DETECTED ON INVALID LINE./ 
<200>/READING OZRBUF DID NOT CLEAR SILO ALARM/ 
<200>/DATA VALID SHOULD NOT BE SET/ 
<200>/RECEIVER DONE SHOULD NOT BE SET/ 
<200>/RELATIVE TIMING ERROR. / 

<200>/MODEM SIGNAL ERROR ON CABLE TEST/ 
<200>/DATA VALID IS NOT SET!/ 

<200>/DATA OVERRUN IS SET!/ 

<200>/FRAMING ERROR OCCURRED/ 

<200>/PARITY ERROR OCCURRED/ 

<200>/FULL BINARY COUNT PATTERN NOT RECEIVED/ 
<200>/BAUD RATE TIMING TEST ERROR/ 

<200>/TRAP PC DZ11 REG/ 

<200>/EXPECTED FOUND REGISTER/ 

<200>/LINE NO./ 

<200>/EXPECTED FOUND LINE/ 

<200>/TX LINE PREVIOUS TIME ACTUAL TIME PARAMETER/ 
<200>/HIGH LOW COUNT LINE/ 


6,3 
6,1 


6,4 


6,1 


6.1 


3,1 


6.4 
6,1 





CZDZA-10 
CZOZAI.Pil 


106€9 
10670 
10671 
10672 
10673 
10674 
10675 


032372 
032374 
032376 


032400 
032402 
032404 
032406 
032410 
032412 
032414 
032416 
032420 
032422 
032424 
032426 
032430 
032432 
032434 
032436 
032440 
032442 


032444 
032446 
032450 
032452 
032454 
032456 
032460 
032462 
032464 
032466 
032470 
032472 
032474 
032476 
032500 
032502 


032504 
001512 


MACY11 30A(1052) 02-JUL-85 16:19 PAGE 87-1 
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02-JUL-85 16:17 


001512 
100000 
000001 





001 


005 
O11 
007 
001 


001 
001 
001 
001 


$REG4 
-BYTE 
SAVLIN 


OTS: 4 
.BYTE 
SAVLIN 
.BYTE 
$REGS 


DT6: 4 


-BYTE 
SAVLIN 


DLYTBL: 2450 
1560 


3,1 


3.5 


6.9. 


6,7 
6.1 


6.1 
6,1 
6,1 
1,1 


sTABLE OF DELAY TIMES FOR 


sFOR BAUD RATE 
sHIGH COUNTER 
sLOW COUNTER 


SEQ 119 


ERROR MESSAGE 


sACTUAL XMIT COUNT 
;THE LINE NUMBER ERROR OCCURED ON 


sTIME FOR 9600 
sTIME OF DELAY 


sDELAYS WERE COMPUTED TO ALLOW MAXIMUM 
sFOR ALL TESTS TO FUNCTION CORRECTLY ON A PDP11/45 WITH BIPOLAR 
sMEMORY. THE TIMES WERE ALSO TESTED ON AN 11/40 AND 11/10. 


CORMAX: 


. =MANTO 


100000 
- END 


INDIVIDUAL BAUD RATES 


BAUD 
BUAD 
BAUD 
BAUD 
FOR 19200 BAUD 


TIME AT EACH BAUD RATE 
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ABASE = 160010 AUTO.S 012254 Coo 
ACOW1 = 090000 AVECT = 000300 Col 
ACDW2 = 000000 AVECT1i= 000000 C02 
ACPUOP= 000000 AVECT2= 000000 CO3 
ACTIVE 001412 BAUD 025510 C04 
ADDWO = 000000 BCOUNT 024110 cos 
ADDW1 = 000000 BINWRD 007110 C06 
ADDW10= 000000 BITO 
ADDW11= 000000 BITOO 
ADDWi2= 000000 BITO1 
ADDW13= 000000 BITO2 
ACOW14= 000000 BITO3 
ADDW1S= 000000 BITO4 
ADDW2 = 
ADOW3 = 

ADDW4 = 

ADDWS = 

ADDW6 = 000000 BITO9 


000400 DZCRi2 001670 OZvVC4 001562 
001000 OZCRi3 001704 DZvCS 001576 
002000 DZCR14 001720 DZVC6 §=001612 
004000 DZCR1iS 001734 DZVC7 001626 
010000 DZCR16 001750 DZ.END 002000 
020000 DZCR17 001764 DZ.MAP 001500 
040000 DZCR2 001530 ECOUNT 024114 
100000 DZCR3 001544 EIAFLG 001414 
000015 DZCR4 001560 EIGHT = 000030 


000200 DZCRS 001574 EIGHTS= 000070 
000004 CSRMAP 012262 DZCR6 001610 EMTVEC= 000030 
000010 CYCLE 011532 DZCR7 001624 EM1 030566 
009020 DATABP 007502 DZCSR 002042 EM10 031203 
000040 DATAHD 007470 DZLEV 030126 EM13 031242 
000100 DCLASM= 104417 DZLPR 002052 EM14 031273 
000200 DCLR = 000020 DZLVO 001504 EM15 031325 
000400 DCOUNT 024112 CZLVi 001520 EM16 031367 
001000 DDISP = 177570 DZLV10 001644 EM17 031440 
000002 DELAY = 104414 DZLV11 001660 EM2 030641 


ADOW? = 
000000 BIT10 = 002000 DEVADR 006632 DZLV12 001674 EM20 031476 


ADOWS 
ADOW9 
ADEVCT= 000000 BIT12 
ADEVM = 000000 81713 
ADRCNT 0C6635 BIT14 
ADVANC= 104400 BIT1S5 
AENV = 000000 BIT2 
AENVM = 000000 BIT3 
AFATAL= 000000 BIT4 
AMADR1= 000000 BITS 
AMADR2= 000000 BITé 
AMADR3= 000000 BIT7 
AMADR4= 000000 BITS 
AMAMS1i= 000000 BIT9 
AMAMS2= 000000 BPTVEC= 000014 DTRO 
AMAMS3= 000000 BRKO 
AMAMS4= 000000 BRK1 
AMSGAD= 000000 BRK2 
AMSGLG= 000000 BRK3 
AMSGTY= 000000 BRK4 
AMTYP1= 000000 BRKS 


004000 DEVICE= 104413 DZLV13 001710 EM21 031537 
010000 DH1 032073 DZLV14 001724 EM22 031567 
020000 DH2 032116 DZLV15 001740 EM23 031631 
040000 DH3 032151 DZLV16 001754 EM24 031661 
100000 DH4 032163 DZLV17 001770 EmM25 031707 
000004 DHS 032212 DZLV2 001534 EM26 031737 
000010 DH6 032271 DZLV3 001550 EM27 021766 
000020 DISPLA 001162 DZLV4 001564 EM3 030667 
000040 DISPRE 000174 DZLVS 001600 EM30 032036 
000100 DLYCNT 007204 DZLV6 001614 EM4 030726 
000200 DLYTBL 032444 DZLV7 001630 EMS 030755 
000400 DONFLG 001420 DZMSR 002062 EM6 031004 
177570 DZNUM 001410 EM7 031042 
000400 DZPRT 030334 EM8 031103 
001000 DZRBUF 002046 EM9 031145 
002000 DZRIS 002074 ENOTTB= 024212 
004000 DZRIV 002072 ERRMSG 007456 
010000 DZTCR 002056 ERRVEC= 000004 
020000 DZTOR 002066 ERTABO 007626 
040000 OZTIS 002100 EVEPAR= 000000 
AMTYP2= 000000 BRK6 100000 DZTIV 002076 EXITER 007562 
AMTYP3= 000000 BRK7 100000 OT1 032324 DZVCO =: 001502 FINI 022434 
AMTYP4= 000000 BRW 005372 DT2 032336 DZVC1 001516 FIVE = 000000 
APASS = 000000 BUILD 025002 DT3 032354 DZVC10 001642 FIVES = 000040 
APRIOR= 000000 BYTCNT 027452 DT4 032362 DZVC11 001656 FRMERR= 020000 
APTCSU= 000040 CCOUNT 024106 OTS 032400 OZVCi2 001672 HALTS 007506 
APTENV= 000001 CHRCNT 007106 DT6 032422 DZVC13 001706 HDRFLG 001416 
APTSIZ= 000200 CLKSRV 024100 DVALID= 100000 OZVC14 001722 HDZCSR 002044 
APTSPO= 000100 CNVRT = 104412 DZACTV 001404 DZVC15 001736 HOZLPR 002054 
ASWREG= 000000 CONVRT= 104411 DZCRO 001500 DZVC16 001752 HDZMSR 002064 
ATESTN= 000000 CORMAX 032504 DZCRi 001514 DZVC17 001766 HDZRBU 002050 
AUNIT = 009000 COUNTO 024660 DZCR10 001640 DZvC2 = 001532 HDZTCR 002060 
AUSWR = 000000 COUNT1 024662 DZCRi1 001654 DZVC3 = 001546 HDZTDR 002070 


no ewheneea 
Oo 
£ss 
S m 
$ 
Sss 
o00 
4444 
DDD 
Uw 
ee ee ee ee ee ee | 
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HILIM 096630 MANTi2 001702 PARAM = 104405 RESOS = 104410 SWREG 000176 

HT = 000011 MANT13 001716 PARAMi 006476 RIE = 000100 SWO = 000001 

INBUF 011262 MANT14 001732 PARER = 010000 RINGO = 000001 SWOO = 000001 

INIFLG 001415 MANT1S 001746 PARERR 006552 RING1 = 000002 SWO1 = 000002 

INIT 021714 MANT16 001762 PARESE 024506 RING2 = 000004 SWO2 = 000004 

INIT1 021740 MANT17 001776 PARITY= 000100 RING3 = 000010 SWO3 = 000010 

INSTER= 104404 MANT2 001542 PARMD = 104415 RING4 = 000020 SWO4 = 000020 

INSTR = 104403 MANT3 001556 PARO 001510 RINGS = 000040 SWOS = 000040 

INSTR2 006430 MANT4 001572 PARL 001524 RING6 = 000100 SW06 = 000100 

INTRAN 026732 MANTS 001606 PAR1O 001650 RING7 = 000200 SWO7 = 000200 

INTREC 026552 MANT6 001622 PARi1L 001664 RLO = 000000 SWO8 = 000400 

INTSVC 026116 MANT7 001636 PAR12 001700 RLi = 000400 SWO9 = 001000 

IOTVEC= 000020 MASTEK 010756 PAR13 001714 RL2 = 001000 SW1 = 000002 

LAST 027444 MBADLN 011065 PARi4 001730 RL3 == 001400 SW10 = 002000 

LESSi 030336 MCABLE 027773 PARIS 001744 RL4 = 002000 SW11 = 004000 

LF = 000012 MCHAR 027640 PARI6 001760 RLS = 002400 SW1i2 = 010000 

LIMITS 006556 MCSRX 010706 PARi7 001774 RL6 = 003000 SW13 = 020000 

LINE 001364 MDATA 011366 PAR2 001540 RL7 = 003400 SW1i4 = 040000 

LINESP 027454 MEPASS 010525 PAR3 001554 RSTART 021704 SW1i5 = 100000 

LINEX 025526 MERRPC 011033 PAR4 001570 RSTRT 026766 SW2 = 000004 

LINEO 001506 MERRX 010733 PARS 001604 RUN 001406 SW3 == 000010 

LINE1 001522 MERR2 010564 PAR6 001620 RXISR1 025030 SW4 = 000020 

LINE10 001646 MERR3S 010633 PAR7 001634 RXSVC 022204 SWS ==: 000040 

LINE11 0C1662 MINVAL 027564 PAWCH = 104416 RXTCR 022462 SW6 = 000100 

LINEi2 001676 MLINE 027612 PIRQ = 177772 R6 =%000006 SW7 == 000200 

LINE13 001712 MLOCK 010657 PIRQVE= 000240 R7 =#000007 SW8 = 000400 

LINE14 001726 MNEW 010761 POPRO = 012600 SAVLIN 001372 SW9 == 001000 

LINE1S 001742 MNTFLG 001417 POPISP= 005726 SAVNUM 001411 $110 = 001000 

LINE16 001756 MODE 001370 POP2SP= 022626 SAVPC 001402 $1200 = 003400 

LINE17 001772 MPASS 027550 PRIO 027464 SAVOS = 104407 $134 = 001400 

LINE2 001536 MPASSX 010722 PRO = 000000 SCOP1 = 104401 $150 = 002000 

LINES 001552 MPFAIL 010462 PR1 = 000040 SERV.G 007642 $1800 = 004000 

LINES4 001566 MQUICK 030010 PR2 = 000100 SET 027242 

LINES 001602 MR 010550 PR3 = = 000140 SETAPT 012102 

LINE6 001616 MREGAD 027514 PR4 == 000200 SETFLG= 104406 

LINE7 001632 MSENAB= 000040 PRS = 000240 SET.PS 011430 

LOBITS 006634 MSPEED 027622 PR6 = 000300 SET1 027274 

LOCK 001362 MTERM 027746 | PR7 = 000340 SEVEN = 000020 

LOCKUP 027442 MTITLE 001000 PS = 177776 SEVENS= 000060 

LOLIM 006626 MTSTN 010744 PSW = 177776 SILOAL= 020000 

LPO == 000000 MVECTO 027472 PUSHRO= 010046 SILOEN= 010000 

LP1 == 000001 MVECX 010714 PUSH1S= 005746 SIX = 000010 

LP2 = 9000002 MWHICH 027700 PUSH2S= 024646 SIXS = 000050 

LP3 = 000003 NEXT 001360 PWRVEC= 000024 SNAP 022034 

LP4 = 000004 NUMLIN 027460 QUITS 026544 SPACNT 007107 

LPS == 000005 NUMTCR 027462 RCVON = 010000 SPEED 027456 

LP6 = 000006 ODDPAR= 000200 RDATA 027450 SPIN 026512 

LP? = 000007 OFFSET 025242 RDONE = 000200 STACK = 001120 

MAINT = 000010 ONESTO= 000000 RECDAT 027466 STFLG 027440 

MANTO 001512 OTHER 025470 REGIST 001400 STKLMT= 177774 

MANT1 001526 OUT 022362 RESREG 007504 STOP 001462 

MANT10 001652 OVRRUN= 040000 RESTAR 012076 Sv05 006644 

MANT11 001666 PAR 001366 RESVEC= 000010 SWR 001160 
ee 








CZDZAI .P11 02-JUL-85 16:17 SYMBOL TABLE 


TCR6 = 000100 TST21 015374 XHEAD 011040 s€ = 000041 $NWTST= 000000 
TCR7 = 000200 TsT22 015732 XMTCNT 001376 SENDAD 005056 SOVER 005336 
TDATA 027446 TST23 016260 XMTLIN 001374 SENDCT 005042 $PASS 001242 
TOO 001422 TST24 016612 XMTSRV 024664 SENV 001254 $PASTM 001470 
TOL 001424 TST25 017070 XPASS 005106 SENVM = 001255 $PWRAD 010450 
Td2 001426 TST26 017400 XSTART 025244 sEoP 004712 $PWRON 010310 
TO3 001430 TST27 017726 XSTATQ 011130 SEOPCT 005034 $SPWRMG 010444 
TD4 001432 TST3 013312 XTCRO 027250 SERFLG 001123 $PWRUP 010362 
ToS 001434 TST30 020360 XTCR1 027264 $SERMAX 001135 $QUES 001230 
T06 001436 TST31 020546 XTSTN 007634 $ERROR 007220 $REGAD 001200 
TO? 001440 TST32 4 ©=6021274 XVEC 005100 SERRPC 001136 $REGO 001202 
TEIGHT 002140 TST33 =©021656 XX = 160210 SERRTB 001360 SREG1 001204 
TEMP 021324 TST34 022464 YY = 000500 SERTTL 001132 $REG2 001206 
TESTI 025656 TST35 023174 ZZ = 000020 SETABL 001254 $REG3 001210 
TEST? 026314 TST36 4 §©=—.0234.46 $APTHD 001462 SETEND 001360 $REG4 001212 
TFIVE 002146 TST37 023720 $SATYC 006020 SFATAL 001236 $REGS 001214 

= 040000 TST4 013404 $ATY1 005774 SFFLG 006240 $RTNAD 005070 

= 000060 TSTS 013476 $ATY3 006002 $FILLC 001176 $SAVR6 010460 

= 023720 TST6 013570 $ATY4 006012 $FILLS 001175 $SCOPE 005122 

* 000000 TST7 013662 $AUTOB 001154 $GDADR 001140 $SETUP= 000000 

= 000400 TTABLE 024116 $BASE 001310 $GDDAT 001144 $SVLAD 005320 
TL2 = 001000 TTST 005140 $BDADR 001142 $GET42 005046 $SVPC = 000040 

= 001400 TWOSTO= 000040 SBODAT 001146 $HD = 000001 $SWR = 164000 

= 0C2000 TXSVC 022106 $COW1 001314 $HIBTS 001462 $SWREG 001256 

= 002400 TYPDAT 007472 $COW2 001316 $ICNT 001124 $SWRMK= 000000 

= 003000 TYPE = 104402 $CHARC 005770 $ILLUP 010454 $STESTN 001240 

= 003400 TYPMSG 007362 SCMTAG 001120 $INTAG 001155 $TIMES 001226 
TMTBL 002102 T110 002106 $CM1 = 000006 SITEMB 001134 $TKB 001166 
TPVEC = 000064 T1200 002120 sCM2 = 000014 SLF 001232 $TKS 001164 
TRAPVE= 000034 7134 002110 SCM3 = 000006 $LFLG 006237 STMPO §=—.001216 
TROY = 100000 T150 002112 $CM4 = 000004 $LPADR 001126 $TMP1 001220 
TRTVEC= 000014 T1800 §=©.002122 $CPUOP 001262 $LPERR 001130 $TMP2 001222 
TRO 001442 T2000 002124 SCRAP = 177777 $MADR1 001266 $STMP3 001224 
TR1i 001444 T2400 002126 SCRLF 001231 $MADR2 001272 $TN = 000040 
TR2 001446 T300 002114 $0DWO 001320 $MADR3 001276 $TPB 001172 
TR3 001450 T3600 002130 $sODW1 001322 $MADR4 001302 $TPFLG 001177 
TR4 001452 T4800 002132 $D0W10 001344 SMAIL 001234 $TPS 001170 
TRS 001454 TS50 002102 $D0DW11 001346 $MAMS1 001264 $TSTM 001466 
TR6 001456 T600 002116 $00W12 001350 $MAMS2 001270 $TSTNM 001122 
TR7 001460 T7200 002134 $00W13 001352 $MAMS3 001274 $TYPE 005440 
TSEVEN 002142 T75 002104 $D0W14 001354 $MAMS4 001300 $TYPEC 005652 
TSIX 002144 T9600 002136 $DDW15 001356 $MBADR 001464 $TYPEX 005772 
TST1 013036 VECMAP 012644 $00W2 001324 $MFLG 006236 SUNIT 001246 
TST10 §=©.013754 VEC1 025306 $D0W3 001326 $MSGAD 001250 $UNITM 001472 
TST11 §=©014112 vEC2 025316 $D0W4 001330 Z = $MSGLG 001252 $SUSWR 001260 
TST12 014274 WCHFLG 027436 $DDWS 001332 $MSGTY 001234 $VECT1 001304 
TST13. 014412 WROCNT 007104 $D0W6 001334 $MTYP1 001265 $VECT2 001306 
TST14 §©014542 WTBS.F 007460 $00W7 001336 $MTYP2 001271 $XOFF = 000023 
TST15 014632 XBEGIN 025556 $DDW8 001340 $MTYP3 001275 $XON = 000021 
TST16 =. 014716 XBX 007250 $D0W9 001342 $MTYP4 001301 $XTSTR 005176 

Y 


T5717 = 015112 XCSR 005072 $DEVCT 001244 $MXCNT 005374 $ = 000020 


TST2 013226 XEOP 026752 SDEVM 601312 $N = 000037 $$GET4= 000000 
TST20 015250 XERR 005114 $SDOAGN 005066 $NULL 001174 ‘ . 


SEQ 122 
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-ADVAN 097206 -DELAY 007166 -INST1 006262 -RESOS 006676 «START 002150 
-BEGIN 004624 -DEVIC 007134 -MSG 006264 -SAVOS 006636 -TRPSR 007112 
-CNVRT 006734 -ERRTA 030340 «PARAM 006436 -SCOPE 005122 -TRPTA 002002 
-CONVR 006730 -INSTE 006416 -PARMD 026772 -SCOP1 005376 -TYPE 005422 
-DCLAS 007154 -INSTR 006242 -PAWCH 027166 -SETFL 011142 -$X = 001462 


- ABS. 032504 000 

ERRORS DETECTED: 0 
CZDZAI.BIN, CZDZAI .SEQ=SYSMAC.SML,CZDZAI.P11 
RUN-TIME: 20.23 .7 SECONDS 


RUN-TIME RATIO: 64/45=1.4 
CORE USED: S2K (103 PAGES) 


Pees 





SEQ 123 
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bee 





